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TRANDES: A FORTRAN PROGRAM FOR TRANSONIC 

AIRFOIL ANALYSIS OR DESIGN 


By 

Lei and A. Carlson 
Texas A&M University 

SUMMARY 

A program called TRANDES is presented that can be used for the analysis of 
steady, irrotational , transonic flow over specified two-dimensional airfoils in 
free air or for the design of airfoils having a prescribed pressure distribu- 
tion, including the effects of weak (no massive separation) viscous interaction. 
Instructions on program usage, listings of the program, and sample cases are 
gi ven. 

INTRODUCTION 

The program described in this report can be used for either the analysis of 
the flowfield about an airfoil in free air or for the design of an airfoil 
having a specified pressure distribution. In the direct or analysis mode the 
airfoil shape is prescribed and the flowfield and surface pressures are deter- 
mined. In the direct-inverse or design mode an initial nose shape is given 
along with the pressure distribution on the remainder of the airfoil, and the 
flowfield and actual airfoil shape are computed. In either case, the effects of 
weak viscous interaction may be included at the option of the user. 

The program solves the exact equation for the perturbation potential in a 
Cartesian coordinate system. Most of the background about the equations solved, 
formulation of the boundary conditions, and the difference scheme used is given 
in references 1-3. This report gives instructions, on the use of the computer 
program and also some additional details concerning the inclusion of weak vis- 
cous interaction. It should be noted that in this report the term weak viscous 
interaction implies that there is no massive boundary layer separation on the 
airfoil. Nevertheless, for aft-loaded airfoils at transonic speeds, the effect 
of viscous interaction on airfoil performance may still be quite large. 

The next section gives a general description of the problem and the method 
of solution. Then the instructions for using the computer program and a de- 
scription of the inputs and outputs are given. The appendices contain 



additional details as well as listings of the program and the sample cases. 

GENERAL DESCRIPTION 

The program described in this paper obtains the inviscid flowfield by 
solving the full, inviscid, perturbation-potential flow equation in a cartesian 
grid system. This system which is usually aligned relative to the airfoil 
chord line, has been found to efficiently yield accurate solutions for biconvex, 
conventional , and aft-cambered airfoils. In the program, a stretching is ap- 
plied to the coordinates such that the infinite physical plane is mapped to a 
finite computational space. Thus, the boundary conditions at infinity can be 
applied directly and there is no need for an asymptotic far-field solution. 
Details about the stretching functions are given in appendix A. 

The method of solution is to replace the governing second-order partial 
differential equation with a non-conservative system of finite difference eq- 
uations that includes, at supersonic points, a form of Jameson's "rotated" dif- 
ference scheme (ref. 4). The difference equations are then solved by column 
relaxation, which in order to obtain rapid convergence is usually done on sev- 
eral different grids. In the analysis case, the difference equations are first 
solved on a very coarse grid (typically 13x7). The solution is then interpo- 
lated and used as an initial condition for a coarse grid (typically 25x13). 

This procedure can be repeated twice more to obtain solutions on a medium grid 
(49x25) and on a fine grid (97X49). The latter has 130 points on the airfoil; 
however, excellent results are usually obtained on the medium grid, particularly 
considering the computer time involved. For typical examples see reference 1. 

In the inverse case, which is normally used for airfoil modification or 
design, an initial airfoil shape must be assumed. However, this choice is not 
critical, and the final airfoil shape may be considerably different. Since ex- 
perience indicates that the inverse scheme works best if the perturbation po- 
tentials have reasonable initial values, fifty relaxation cycles are first per- 
formed in the direct mode for the initial airfoil shape on a very coarse grid. 
The grid is then halved and the inverse procedure initiated using the input 
pressure distribution as the boundary condition in the inverse region. As in 
the direct case, the grid may be refined again to the medium grid (typically 
49x25) where the results are usually adequate. Fine grid usage in the inverse 
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case is not recommended due to slow convergence. On each grid the airfoil 
shape is recomputed every ten relaxation cycles after the first fifty. 

After the solution has been obtained in the design case, the resultant 
shpae is treated as a displacement surface and the displacement thickness is 
automatically subtracted to obtain the actual airfoil surface. The boundary 
layer characteristics are determined by the Nash-Macdonald method (ref. 5) 
with smoothing. 

The effects of viscous interaction may also be included in analysis cases 
at the option of the user. To preserve numerical consistency with the inverse 
scheme, the Nash-Macdonald method is also used in such analysis cases, starting 
with the 50th cycle on the coarse grid. At that point the displacement thick- 
ness is computed at the same x coordinates as the inviscid grid and the dis- 
placement surface ordinates updated using under- rel axati on. The slopes are 
then determined from cubic splines through the new ordinates, which are updated 
by a new boundary layer calculation every ten relaxation cycles thereafter. 

For those cases having extensive trailing edge separation an empirical boundary 
layer correction is available. However, it is not necessary for most cases. 

It should be noted that while the program can include the effects of bound- 
ary layer interaction, no correction has been applied for the effects of wake 
curvature and an empirical approach has been used in the trailing edge region. 
Thus, the results should be viewed as pressure versus lift coefficient, moment 
vs. lift, etc. instead of angle of attack. However, the error in angle of 
attack is believed to be small. 

Typical total computation times on an Amdahl 470/V6 or a CYBER 175-T are 
60-70 seconds for medium grid results and less than 250 seconds for fine grid 
sol utions. 


PROGRAM USAGE 

The program is written in FORTRAN IV programming language for use on IBM 
360-370, Amdahl 470, CDC 6600, and CDC CYBER series computers. The program can 
be overlaid in order to reduce computer storage, if required. In nonoverlay 
mode it requires less than 200,000 bytes on an IBM type machine. Some modifi- 
cation to formats etc. may be required to run the program on different computer 
systems. 
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The input cards are summarized in the following table: 


Read 

Order 

Variables 

Format 

1 

NTITLE 

20A4 

2 

NAMELIST/FINP/M,W,X1 ,X2 , ALP , EPS ,EPSS , 
X4,S4,eONV,Al ,A2,A3,RN,XIBDLY,CIR,CDC0RR, 
RDEL,RDELFN,SP,XSEP,XLSEP,XPC 

Namelist 

3 

NAMELIST/IINP/IMAX.JMAX,IKASE,INV, MITER, 

NHALF,ITACT,ISKP2,ISKP3,ISKP4,ITERP,IREAD, 

LP,ITEUPC,ITELWC 

Namel ist 

4 

P(I,J) I=1,IMAX; J=1.JMAX (Only if IREAD=1) 

5E15.7 

5 

PB(I) I=1,IMAX (Only if IREAD=1) 

5E15.7 

6* 

XI ,X2 

2F10.5 

7 

NI 

15 

8 

XI(I),YI(I), 1=1, NI 

8F10.4 

9 

DERIX,DERIY,DERFX,DERFY 

8F10.4 

10 

NIB 

15 

11 

XIB(I),YIB(I), 1=1, NIB 

8F10.4 

12 

DERI XB , DERI YB , DERFXB , DERFYB 

8F10.4 

13* 

XI, X2 

2F10.5 

14* 

CPU(I), 1=11, ITE 

8F10.3 

15* 

CPL(I), 1=11, ITE 

8F10.3 

16* 

X1,X2 

2F10.5 

17* 

CPU(I), 1=11, ITE 

8F10.3 

18* 

CPL(I), 1=11, ITE 

8F10.3 

19* 

XI, X2 

2F10.5 

20* 

CPU(I), 1=11, ITE 

8F10.3 
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21 * 


CPL(I), 1=11, ITE 


8F10.3 


* Read only in the design mode when INV=1 

NOTE: In the design mode steps 13-15 are for the coarse grid, 16-18 

for the medium and 19-21 for the fine grid (if used). 

The definitions of these input variables are as follows: 

NTITLE - Description of case. Up to 80 alphanumeric characters. Appears on 
printed output, at the beginning of the results for each grid. 

M - Freestream Mach number (real variable). Default 0.5 

W - Relaxation factor for subsonic points. Should be in the range 0<W<2.0 

Default 1 . 7 

XI - X location where direct calculation stops. In analysis mode it should 
be set to 0.5 (i.e. trailing edge). In design mode it is usually set 
to slightly less than the third point from the leading edge or larger. 
Default 0.5 

X2 - End of the inverse region. For analysis case set to a large number. 

In inverse design case set to 0.5 (i.e. trailing edge). Default 
10000.0 

ALP - Angle of attack in degrees. Default 0.0 

EPS - Subsonic damping factor to match difference equations at sonic line if 

needed. EPS has no effect on accuracy of solution, only on stability 

and convergence rate. Normally it is not needed. Default 0.0 

EPSS - Supersonic damping factor for iterative stability. Note that EPSS has 
no effect on the accuracy of the converged solution, only on the sta- 
bility and convergence rate.. EPSS should typically be about -1, 

filaX 

where is the maximum local Mach number. Default 0.4 

X4 - The positive X location where the coordinate stretching changes. It 
should be near the airfoil trailing edge. Default 0.49. 

S4 - The positive ? value in the computational plane where the stretching 
changes. Default 2.0 

CONV - Convergence criteria control value. Iterations stop when the maximum 
change in the perturbation potential (between relaxation cycles) is 
less than CONV. Default 1.E-05 

A1 - Stretching constant for the Y direction. It can be used to control AY 
and An near the horizontal axis. It is usually best to have ae; = An 
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A2 


near the leading edge of the airfoil. Default 0.246 
- First stretching constant for the X-direction. It is equivalent to 

^ (^) at 5 = 54 . The value of determines the horizontal step size 

near the leading and trailing edges, i.e. 




(2(1+S4)) 
2 (IMAX-1) 


See Appendix A. Default 0.15 

A3 - Second stretching constant for the x-direction. It determines the 
physical location of the vertical grid line adjacent to grid side 
edge. Default 3.87. 

RN - Freestream Reynolds number based on chord length. Used only when 
viscous interaction included. Default 20.E+06. 

XIBDLY - The x-location at which transition is assumed to occur. The turbulent 
boundary layer calculation starts at the next grid point. The rela- 
tionship to percent chord is 

XIBDLY = {% chord-50. 0)/100.0 


Default -0.44. 

CIR - Circulation about airfoil. If an initial solution is inputted, it 
must be the corresponding value of circulation. (CIR = C|^/2.0). 

Default 0.0 

CDCORR - Correction to the computed wave drag coefficient for the finest grid 
used. Because of the lack of a large number of points in the leading 
and trailing edge regions, the wave drag coefficient has an error as- 
sociated with grid size, spacing, and lift coefficient. The magnitude 
of CDCORR as a function of lift can be determined from a series of 
calculations at different angles of attack at subcritical speeds, where 
the wave drag should be zero. Note that the correction should be de- 
termined for each airfoil and grid combination. Default 0.0. See Ap- 
pendix B. 

RDEL - Relaxation parameter for the boundary layer displacement thickness. 

It is used only when viscous interaction is included and IMAX - 55. 
Default 0. 25 

RDELFN - Fine grid relaxation parameter for the boundary layer displacement 
thickness. It is used only when viscous interaction is included and 
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SP 

XSEP 

XLSEP 

XPC 

I MAX 

JMAX 

IKASE 

INV 

MITER 

NHALF 

ITACT 


IMAX > 55. Default 0.125 

- Maximum value allowed for the Nash-Macdonald separation parameter when 
X < XSEP. Used only in the viscous interaction case. Default 0.004. 

- X location after which the Nash-Macdonald separation parameter can as- 
sume its calculated value. Used only in the viscous interaction case. 
Default 0.44 

- Location at which the trailing edge correction procedure begins. It 
should correspond to the point of separation, if used. Between XLSEP 
and the trailing edge the pressure distribution and the displacement 
surface is modified. Used only if ITEUPC and/or ITELWC equal 1. 
Default 0.50 

- Location after which the lower surface displacement thickness is re- 
quired to continue decreasing once it has started to decrease. Up- 
stream of XPC the displacement thickness is required to be monoton- 
ically increasing. For most aft-cambered airfoils it should be 0.1 
and in conventional airfoils it should be 0.5. Default 0.1 

- Number of vertical grid lines in the horizontal direction. I = 1 is 
upstream infinity and I = IMAX is downstream infinity. For each grid 
refinement IMAX is increased such that IMAX^^^ = 2(IMAX^-jij) - 1. 

The limit on IMAX is 99. Default for use on first grid is 13. 

- Number of horizontal grid lines in the vertical direction. J = 1 
corresponds to infinity below the airfoil, and J = JMAX is infinity 
above the airfoil. The same formula and limit that apply to IMAX also 
apply to JMAX. Default 7. 

- An integer number describing the case. It is limited to a maximum of 
six digits. Default 100. 

- Parameter determining program mode. It should be zero for analysis 
cases and one for inverse design cases. Default 0. 

- Maximum number of iterations (complete relaxation cycles) allowed on 
first grid. MITER is halved for each grid refinement. However, on 
the fourth grid, MITER is reset to 400. Default 800. 

- Number of grid refinements to be done. Default 2. 

- Viscous interaction control parameter. It should be set to zero for 
analysis cases without interaction and for design cases. It should be 
one for analysis cases with interaction. Default 0. 
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ISKP2 


ISKP3 

ISKP4 

ITERP 


I READ 


LP 


ITEUPC 


ITELWC 


P(I,J) 
PB(I) 
XI, X2 

NI 

XI(I) 


Airfoil update control parameter for grid two. It should be 0 if on 
grid two an update is desired every 10 iterations. It should be 1 if 
an update is not desired until the grid two solution is completed. 

Only used in the inverse design mode. Default 0. 

Same as ISKP2 but for grid 3 (medium grid). 

Same as ISKP2 but for grid 4 (fine grid). 

Interpolation parameter. If in the design mode the input Cp distribu- 
tion for the grid 4 is to be read in, ITERP should be 0. If it is 
desired to linearly interpolate the Cp distribution of grid 3, it 
should be 1 . Default 0. 

Starting solution control parameter. If IREAD is 0, the initial per- 
turbation solution is assumed to everywhere be zero. If it is 1, an 
initial solution is read in from data cards. Default 0. 

Relaxation cycle interval at which boundary layer, surface ordinates, 
etc. details are printed. Useful for diagnostics. Default 1000. 

(No printout.) 

Upper surface trailing edge correction control parameter. If trailing 
edge correction desired, ITEUPC should be 1. If not it should be zero. 
Only used in the viscous interaction case. Normally the correction 
is not needed. Default 0. 

Lower surface trailing edge correction control parameter. If correc- 
tion desired, ITELWC should be 1 . If not it should be 0. Only used 
in the viscous interaction case, and normally the correction is not 
needed. Default 0. 

Nondimensional perturbation potential, <(>.■, at point I,J. 

* V 

Nondimensional perturbation potential at point I on the y=0"’grid line. 
Same definition as above. However, in the inverse design case they 
must be read in prior to the solution of each grid. On the first grid 
(step 6 in above table) should use Xl=0.5, X2=10000.0. On remaining 
grids (steps 13,16, and 19), XI should be the location where the 
direct calculation stops and X2 should be 0.5. 

The number of coordinate pairs used to describe the upper surface of 
the airfoil. Presently limited to 99. 

Input coordinates in the horizontal direction for the airfoil upper 
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YI(I) 

DERIX 

DERIY 

DERFX 

DERFY 

NIB 

XIB(I) 

YIB(I) 

DERIXB 

DERIYB 

DERFXB 

DERFYB 

CPU(I) 

CPL(I) 


surface. The leading edge corresponds to XI=0.0 and the trailing edge 
is XI=1.0. 

Input coordinates in the vertical direction for the airfoil upper sur- 
face. 

DX/DS of the airfoil upper surface at the leading edge (XI=0.0). It 
usually is 0.0. 

DY/DS of the airfoil upper surface at the leading edge (XI=0.0). It 
usually is 1 .0. 

D^X/DS^ of the airfoil upper surface at the trailing edge (XI=1.0). 

It is usually sufficiently accurate to use 0.0. 

D^Y/DS3 of the airfoil upper surface at the trailing edge (XI=1.0). 

It is usually sufficiently accurate to use 0.0. 

The number of coordinate pairs used to describe the lower surface of 
the airfoil. Presently limited to 99. 

Input coordinates in the horizontal direction for the airfoil lower 
surface. The leading edge corresponds to XIB=0.0 and the trailing 
edge is XIB=1.0. 

Input coordinates in the vertical direction for the airfoil lower 
surface. Since positive is up, the values of YIB are usually negative. 
DX/DS of the airfoil lower surface at the leading edge. It is usually 
0.0 

DY/DS of the airfoil lower surface at the leading edge. It usually is 
- 1.0 

D^X/DS3 of the airfoil lower surface at the trailing edge. It is usu- 
ally sufficiently accurate to use 0.0. 

d3y/DS 3 of the airfoil lower surface at the trailing edge. It is 
usually sufficiently accurate to use 0.0. 

Upper surface inverse region Cp values for design case. II, which is 
computed internally, is the first grid point after XI. The distribu- 
tion must be read in for each grid solved inversely (steps 14,17, 
and 20) . 

Lower surface inverse Cp values for design case. They must be read in 
for each grid solved inversely (steps 15,18 and 21). 
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The Program Output for each Grid is: 


Heading 
Case Number 

Coordinate System. It is printed as I,X(I) followed by J,Y(J). Also, 
the Mach Number, angle of attack, and the location where the direct cal- 
culation stops is printed (i.e. XI). 

Listing of input data in namelists FINP and IINP. 

Airfoil ordinates in direct region 

X - horizontal ordinate, where -0.5 is leading edge and 0.5 is trailing 
edge 

YU - Upper surface ordinate 
YL - Lower surface ordinate 

Desired Cp distribution in inverse region. Only printed in the inverse 
design case. 

Iteration history at ten-cycle intervals. 

CIR - circulation 

DPM - maximum <i> correction (absolute value) in the last relaxation cycle 
The (1,0) grid location of DPM is also printed. 

NSSP - Number of supersonic points. 

DELST - 6* at last grid point on upper surface. In interaction cases it 
is an indicator of convergence of solution. 

DELTAY- Maximum absolute change in inverse region of the computational 
plane displacement surface ordinates during last surface update. 
Boundary layer details etc. - Every LP cycles details of the boundary layer 
calculation, current surface ordinates in computational coordinates, and 
surface slopes are printed. Useful if diagnostics needed. 

Final Boundary Layer Results (Viscous interaction case only) 

YUORIG - Airfoil upper surface ordinate. 

DU - Upper surface displacement thickness 
SLU - Slope of upper displacement surface 
YLORIG - Airfoil lower surface ordinate 
SLL - Slope of lower displacement surface 
DL - Lower surface displacement thickness 
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10. ) Pressure Distribution on Airfoil 

11. ) Displacement Surface Ordinates and Slopes - In the inviscid case this 

will be the same as airfoil ordinates etc. 

12. ) Mach number chart of the flow field in the computational plane. Numbers 

printed are the Mach number multiplied by 100. I increases from top 
to bottom. J increases from left to right. 

13. ) Wave Drag Coefficient 

14. ) Plot of Results 

U - Upper surface Cp 

L - Lower surface Cp 

T -■ Upper displacement surface 

B - Lower displacement surface 

CLCIR - Lift coefficient from circulation 

CL - Lift coefficient from integration of Cp 

CD - CDWAVE + CDF 

CMLE - Moment coefficient about leading edge 
CDF - Skin friction drag coefficient 
CMC4 - Moment coefficient about quarter-chord 
In addition, in the inverse case the following is printed after the final grid 
results. 

15. ) Boundary layer details - Upper surface 

16. ) Airfoil ordinates of Upper surface 

YOLD - Displacement surface ordinate 
YNEW - Airfoil ordinate 
DELSTAR - Displacement thickness 

17. ) Boundary layer details - Lower surface 

18. ) Airfoil ordinates of lower surface. 
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APPENDIX A 

COORDINATE STRETCHING FUNCTIONS 


To facilitate the application of the infinity boundary condition, the co- 
ordinates are stretched from a physical x-y plane to the computational ?-n 

plane. To do this, the x-axis is subdivided into three regions. The first is 

from X = -“ to X = -x^. The second is from x = -x^ to x = x^, and the last is 

from X = x^ to X = +“. 

The stretching is symmetrical about the origin and is given by 
X = X 4 + A^ tan + A^ tan [|-(?-? 4 )^] 


in the third region and by 
X = C(a+b5^) 

in the second region. The constants a and b are automatically computed by the 
program to staisfy the requirements 


and 


X = x^ at c = C 4 


dx 

dc 


irAr 


at C 


The constant A, controls the grid spacing in the vicinity of x., near the lead 

^ ttA ^ 

ing and trailing edges of the airfoil, i.e. ax = ,2 A? at x=X 4 . 

2 

A^ determines the physical location of the grid line adjacent to the grid edge 
In the y-direction the stretching relationship is given by 
y = A^ tan {j n) 

and thus, A.j controls the grid size near the airfoil via 


dy ttA, 2 /tt X 

^ ^ sec (j n) 


and 


i:A 


Ay = 


An at n = 0 


Notice that these stretchings map the infinite x,y plane into the finite 
computational plane 

-0 + C4) f ? 5 0 + C4) 

-1 < n < 1 


where determines the amount of the computational plane confined to the vi- 
cinity of the airfoil. Also 
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and 


Ac = 2(in4) 

IMAX-1 


. ^ 2.0 

JMAX-1 

Finally, it should be noted that JMAX needs to be sufficiently large so 
that all points on the J=2 and J=JMAX-1 grid lines are subsonic. Otherwise, 
the rotated difference scheme may attempt to use points outside the computa- 
tional space. 
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APPENDIX B 

VISCOUS BOUNDARY LAYER AND WAVE DRAG CORRECTION 


Experimental evidence indicates that viscous boundary layer effects are 
very important in transonic flow. For example, an aft-cambered airfoil in- 
viscidly designed to have a lift coefficient of 0.6 may actually develop 25- 
50% less lift. This loss in lift is due not only to the existence of a boun- 
dary layer displacement surface but also to such factors as wake curvature and 
vertical pressure gradients in the trailing edge region. To prevent such dis- 
crepancies, the effect of the viscous boundary layer should be included in both 
the analysis and design portion of any numerical method. 

In the present program, the approach is to assume that the inviscid stream- 
lines follow a displacement surface having ordinates and slopes different from 
the actual airfoil. The effect of the fact that the streamlines do not follow 


a displacement surface in the vicinity of the trailing edge and that they are 
influenced by wake curvature is assumed to be either secondary or capable of 
being handled empirically. In the design case, the approach is to treat the 
airfoil determined by the inverse method as the displacement surface and to 
subtract from it the displacement thickness determined by a boundary layer com- 
putation. The result is considered to be the actual airfoil ordinates. For the 
analysis case, the approach is to calculate a boundary layer displacement sur- 
face (i.e. airfoil ordinate plus 6 *) using under- relaxation. The invisicid 
flowfield is then solved, and the displacement surface is updated every ten 
iterative cycles. 

Obviously, the boundary layer scheme must be reliable, reasonably accurate, 
and computationally very efficient. After extensive investigation, the Nash- 
Macdonald method (ref. 5) together with certain smoothing operations, was selec- 
ted for incorporation into the present program. In addition, the displacement 
thickness at the trailing edge grid point was always determined by linear ex- 
trapolation from the previous two upstream grid point values. As a result, the 
basic appraoch used in the present program is similar to that of reference 6. 

To update the displacement surface, the momentum integral equation 


de 

ds 


+ (H + 2-M^) I 


ds 


T 


is solved for the momentum thickness 0 using the formulas of Nash and Macdonald 


14 


for skin friction, t, and the shape factor H = 6*/0. This computation is 
performed on the same grid spacing as the corresponding invisicid solution. 

The resultant displacement thickness is then smoothed everywhere and extra- 
polated to obtain the thickness at the trailing edge point. The smoothing 
is performed twice oh grids having IMAX less than 55 and four times on grids 
with IMAX greater than 55. 

This smoothing and extrapolation process appears to have two consequences. 
First, it reduces the rapid variations in the solution which sometimes occur 
in regions with high pressure gradients. Second, based on comparisons with 
experiments, the Nash-Macdonald method with smoothing and extrapolation seems 
to yield a trailing edge behavior that is correct with respect to the effect of 
the boundary layer on pressure distribution and lift. Admittedly, .this be- 
havior is fortuitious and some sensitivity to grid spacing has been detected. 
However, it should serve as a reasonable engineering model until a more com- 
plete, rational, trai ling-edge theory is available. At that time such a theory 
could be easily incorporated into the present program. 

If a case with extensive upper surface separation is encountered, the user 
may need to incorporate the optional trailing edge correction feature of the 
program. In this correction the boundary layer is solved using a modified 
pressure distribution that is linear from a point XLSEP, corresponding to sep- 
aration, to the trailing edge. The base pressure, which determines the pres- 
sure gradient in this region, is determined semi -empirically. For aft-cambered 
airfoils, it is automatically selected to be the same as the maximum value of 
the pressure coefficient encountered on the lower surface of the airfoil. For 
conventional airfoils, it should be selected by the user based upon experience. 
(A typical value is 0.6). For aft-cambered airfoils the resultant modified 
boundary layer computation is normally applied only to the upper surface and is 
only used to determine the ordinate and slope of the displacement surface at 
XLSEP. The slope is then assumed to be constant from XLSEP to the trailing 
edge and the resultant displacement surface shape determined. Based upon 
comparisons with experiment, this approach yields reasonably good results and 
eliminates oscillations in the pressure distribution which can occur due to 
very small changes in the displacement surface slopes. Thus the method is a 
combination of the approaches used in references 6 and 7. 
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For conventional airfoils, the modified boundary layer computation is 
used to determine when the slope of the displacement surface becomes zero. 

From that point to the trailing edge the slope is then held constant. This 
approach is based on the concept that the streamlines from both the upper and 
lower surfaces should enter the wake almost parallel. Thus, for conventional 
airfoils, if the trailing edge correction is used, it should be applied to 
both surfaces. Since in most cases, this correction is not needed on conven- 
tional airfoils, its extensive use is not recommended until it has been ver- 
ified by experiment. 

In both the normal and corrected uses, separation is assumed to occur 
when (-e/q dq/ds) is greater than 0.004. 

Now one of the difficulties associated with using a cartesian grid is 
that such a grid does not place a large number of computational points near 
the leading and trailing edges. Thus, the wave drag coefficient, which is 
determined by integration of the pressure distribution, has an inherent error 
associated with grid size, grid spacing, and the magnitude of the lift coef- 
ficient. Extensive comparisons with experimental data has indicated, however, 
that accurate estimates of the wave drag can be obtained by applying a suitable 
correction factor, CDCORR. This correction factor, which is different for each 
airfoil and computational grid, can be determined as a function lift from a 
series of calculations at different angles of attack at subcritical speeds, 
where the wave drag should be zero. 

For each subcritical calculation, using a CDCORR of zero, determine the 
axial and normal coefficients using 

CN = CL cos a + CDWAVE sin a 
CA = -CL sin a + CDWAVE cos a 

where CL is the lift coefficient determined from integration of the Cp distrib- 
ution. Then the true CDCORR corresponding to CL can be computed from 
CDCORR = CA + CN sin a/ cos a 

This value can then be used in supercritical runs having the same CL. 

In some cases, it may be more convenient to compute the supercritical 
flows using a CDCORR of zero and to apply the correction later. In those cases, 
the following procedure can be used to determine the drag. First, compute the 
axial and normal coefficients using 
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CN = CL cos a + CDWAVE sin a 


CA = -CL sin o + CDWAVE cos a 

Then correct the axial coefficient for the appropriate lift and grid by 

CA = CA - CDCORR 

and recompute CDWAVE by 

CDWAVE = CN sin a + CA cos a 
The total drag coefficient is then given by 

CD = CDWAVE + CDF 

In all cases the drag due to skin friction and to changes resulting from 
the displacement surface shape is computed using the Squire-Young formula. 
While this formula is not exactly theoretically correct, it has been found to 
yield very accurate predictions. 
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APPENDIX C 
PROGRAM LISTING 


VO 


C 

c 

c 

c 


********** TRANDES — TRANSONIC ANALYSIS AND DESIGN PROGRAM ♦♦**♦** 00000001 
********* LELAND A. CARLSON, TEXAS A&M UNIVERSITY, 7 1 3- 845-754 1 0 0000 002 
♦♦♦♦♦♦♦*♦♦ JULY 1976 ********************************************* 00000003 

00000004 

real M 00000005 

DIMENSION NTITLEI20J , AAC 500) , IONIC(99) 00000006 

COMMON CPU! 99) , CPL < 99 ) ,E ( 99 ) ,0U1 (99) ,DU2(99> ,DL1 (99) , DL2( 99 ) , D( 993 00000 00 7 
1 ,FFI 993 ,FFP12 (99 ) ,FFM 12(99 ) ,FFM1 (99) ,FFM32(99) , 00000008 

1P1<99) ,P2( 99) ,PB(99) ,P(99,99 ) ,RS( 99) ,S(99) , SUP(99) SUB(99) , T£MP( 99 00000 009 
2) ,X(99 ) ,Y(99) ,YU(99) , YL(99) , SLU( 99). SUL (99) , 00000010 

3A1 , A2, AI2 ,ALP ,CIR,EPS , EPSS , OE ,0S , DP ,OPM , F ,FP 1 2 , FM 1 2.FM32 , M , QI ,012,00000011 
4W,X1,X2,VVJB,VVJB1,AAJB1 , A A JB, 00 JB.QQ JBl ,UUJB, VVJBPl . 00 JBP 1 , A AJ BPl 00000 0 1 2 
5,Q,00,UUJB1 ,P1 ,P12,A22,A11 ,X4,S4 00000013 

COMMON I,ITE,ITE1,ILE,ILE1.11,111,IC0N,IMAX, I MAX 1,INV,JB,JA1,JB1, 00000014 
UMAX. JCON, JMAXl ,NSSP. IW 00000015 

C0MM0N/JS/GG(99),GGP12(99) ,GGM12(99) , GGM32 ( 99 ) , GGP32 ( 99) . A3 00000016 

CCMMON/Fl X/MHALF 00000017 

CCMMON/DELTA/ITER 00000018 

CCMMON/.TAMU/DELTAY 00000019 

CCMMON/.RED/ITERP 00000020 

COMMQN/FIPUT/IREAD 00000021 

COMMON.4NASH/RN, IBDLY, I TACT .YUORI G<99 ) ,YL0RIG( 99) , SUPPER ( 99 ), SLOWER00000022 
1 (99) .DEL ( 99) .DUPOLD (99 ) , DLWOLD(99) .CDF 00000023 

C(3MM0N/1PT1/XIBDLY.RDEL,R0ELFN,RCPB, SP, XSEP, CONV . CPB , XMON , XLSEP , 00000024 

1 MITER ,LP. ITEUPC , ITELWC. XPC 00000025 

NAMELI ST/FINP/M, to.Xl ,X2,ALP,EPS,EPSS,X4,S4,C0NV, A1 ,A2, A3,RN, 00000026 

1 XIBOLY.C IR , CDCORR. RDEL, RDELFN, SP, XSEP, RCPB, CPB, XMON, XLSEP, XPC 00000027 

NAMELIST/IINP/IMAX, UMAX, I K ASE , IN V , MI TER , NHALF , I T ACT , I ,SKP2 , ISKP3, 00000028 
1 ISKP4 ,ITERP, IREAD.LP, ITEUPC,ITELWC 00000029 

DELTAY=0.0 00000030 

CDF=0. 00000031 


CDCORH^O.O 
DPM=0. 0 
ITER=0 
MHALF= 1 
1W=0 
CIR=0. 0 
OPMSUM=0.0 
1DPM=1 


00000032 

00000033 

00000034 

00000035 

00000036 

00000037 

00000038 

00000039 



r 


DP0LD=0.0 

00000040 

M=a.5 

00000041 

W=1 . 7 

00000042 

X1=0 .5 

00000043 

X 2=1 0000. 0 

00000044 

ALP=0. 0 

00000045 

EPS=0. 0 

00000046 

EPSS=0.4 

00000047 

X4=0,49 

00000048 

S4=2. 0 

00000049 

Al=0.246 

00000050 

A2=0. 1 5 

00000051 

A3=3.87 

00000052 

RN=20. OE+06 

00000053 

XIBDLY=-.44 

00000054 

CPB=0. 4 

00000055 

RD£L=0 .25 

00000056 

RDELFN=0. 125 

00000057 

SP=O.OQ4 

00000058 

XSEP=0 .44 

00000059 

XCSEP=0.50 

00000060 

RCPB=0 .2 

00000061 

XMON=0 .47 

00000062 

C0NV=1 .E-05 

00000063 

IMAX=13 

00000064 

JMAX=7 

00000065 

IKASE=100 

00000066 

INV=0 

00000067 

MITER=a00 

00000068 

NHALF=2 

00000069 

ITACT=0 

00000070 

ISKP2=0 

00000071 

ISKP3=0 

00000072 

I SKP4=:0 

00000073 

1 TERP=0 

00000074 

IHEAD=0 

00000075 

LP=1000 

00000076 

ITEUPC=0 

00000077 

ITELIKC=0 

00000078 

XPC=0. 10 

00000079. 



REAO(5 , 1 ) ( NTITLEl I ) , 1=1 , 20 ) 

00000080 

1 

F0RMATt20A4) 

00000081 


PRINT 2 

00000082 

2 

FORMATfi IHl ) 

00000083 


READ(5 ,FINP) 

00000084 


epsso=EPss 

00000085 


EPSO=EPS 

00000086 


BETA=SQRTt 1 .-M+M) 

00000087 


READ(5 , I INPJ 

00000088 


1CASE=IKASE 

00000089 

800 1 

CONTINUE 

00000090 


ALPDEG=ALP 

00000091 


CPSTAR=1 .428/(M*M>*(((l.F0.2*M4M)/1.2)**3.5-l.) 

00000092 


PI=4.4ATAN( 1.0) 

00000093 


PI2=0.5*PI 

00000094 


ALP=ALP*P 1/180. 

00000095 


A22=2./(PI*A2) 

00000096 


A1 1=2. /(P I*A1 ) 

00000097 


CALL VALUE 

00000098 

10 1 

PRINT 3, ( NTI TLE( I ) , 1= 1 .20) 

00000099 

3 

FORMAT«20A4) 

00000100 


CALL COORD 

00000101 


PRINT 6,M.ALPDEG.X1,ICASE 

00000102 

6 

FORMAT (IHO. 3X. *MACH NO. IS '.f'5.3.* ANGLE OF ATTACK IS •.F5.3.‘ 

DE00000103 


IGREES* ./. lOX, • DIRECT SOLUTION TO *.F8.2. /, 

00000104 

225X,*CASE NUMBER*. 16) 

00000105 


IF(INV.EQ.O)PRINT 6001 

00000106 

6001 

FORMAT! IHO. 3X .• INVISCIO ANALYSIS CASE*) 

00000107 


IFUTACT.EQ.DPRINT 6002 

00000108 

6002 

FORMATIIH »3X.*WITH VISCOUS INTERACTION*) 

00000109 


IF( INV.EQ.l )PRINT 6003 

00000110 

6003 

FORMAT! IHO, 3X. • INVERSE DESIGN CASE*) 

00000111 


V*RITE( 6 ,F1NP) 

00000112 


WRITE! 6.1 INP) 

00000113 


IFIMHALF.EQ.l )GO TO 102 

00000114 


JB=JMAX/2+l 

00000115 


DO 104 I=ILE,IMAX 

00000116 



r 


I\3 

ro 


104 P( I, JB-1) = 0.5*(P( I, JB-2)4-PB( IJ ) 

P( IMAX, JMAX-1 )=P( IMAX, JMAX-2) 

P( IMAX-1 , JMAX)=P( I MAX-2, JM AX) 

P(2,JMAX)=P(3,JMAX) 

P{), JMAX-1 )=P(1, JMAX- 2) 

Pll,2)=Pl 1,3) 

P( 2, 13 =P( 3, 1 ) 

P(IMAX-1,1)=P( IMAX- 2,1) 

P( IMAX ,2)=P( IMAX ,3 ) 

102 CCNTINUE 

ILE1=ILE-1 
I 11 = 1 1-1 
I T£= IMAX-ILEl 
ITE1=I TE+1 
CALL FCIL 

IFdREAO.EQ.l.AND.MHALF.EQ.l ) MHALF=MHALF + 1 

7 DO 8 J=1,JMAX 

8 P 1 C J ) = P{ 1 , J ) 

CALL FLOWl 
CALL FLGW2 
IF(JNV,EQ.O)GQ TO 9 
IFIMHALF.EQ.l )GO TO 9 
CALL FLOW 3 

IF<X2 .GT. 1000 .0 ) GO TO 10 

9 CALL WAKE 

10 STE=S4+2.yPI*ATAM (0.5-X4)/A2) 

CIR = -t STE-S( ITE+ 1 ) )/DS*< P( ITE, JB)-PB( ITE3 ) F{ STE-S( ITE) )/DS* 
1 (P( I TE + 1 , J8)-PB( ITE+1 ) ) 

GUAN l=--5*CIRyPI 
QUAN2=ATAN( BETA*A1/A2*DS/DE) 

QUAN3=ATAN(BETA*TANIALP) ) 

IF(M.GT.l ,DGO TO 11 
IF'( ALP ,GT .0 .0 »GO TO 108 
IF( ALP ,LT.0-0)GQ TO 1081 
P( IMAX , JMAX ) =QUAN1*QUAN2 
DO 12 I;=2,IMAX1 
P<I,JMAX)=- CIR/4.0 
12 P( I, 1 »=-0.75*CIR 

P( 1 , JHAX) =QUAN1* (P1-QUAN2) 


00000117 
00000118 
00000119 
00000120 
00000121 
00000122 
00000123 
00000124 
00000125 
00000126 
00000127 
00000128 
00000129 
00000130 
00000131 
00000132 
00000133 
00000134 
00000135 
00000136 
00000137 
00000138 
00000139 
00000140 
00000141 
00000142 
00000143 
00000144 
00000145 
00000146 
00000 147 
00000148 
00000149 
00000150 
00000151 
00000152 
00000153 
00000154 
00000155 



Pt 1. 1 )=QUAN1*( PI +QUAN2 ) 

P< IMAX, 1 )=QUANl*(2.*PI-QUAN2) 

DO 13 J=2,JMAX1 

13 PU. J)=-0.5*CIH 
JBM1=JB-1 

DO 14 J=2,JBM1 

14 P( IMAX,J)=-CIR 
GO TO 109 

1081 DO 1083 I=2.IMAX1 

Pt I* JM AX >=QUAN1 *( PI +ATAN( BETA/'T AN (ALP) ) ) 
1083 P( I. 1 ) =QUAN1*PI+P( I , JMAX ) 

GO TO 1082 

108 00 110 I=2tlMAXl 

P< I f JMAX)=QUAN1*ATAN( BETA/TAN( ALP) ) 
no P(I* 1)=QUAN1*PI+P<lt JMAX) 

1082 CONTINUE 

DO 111 J=2,JMAX1 

111 P(l. J)=QUAN1*<PI-QUAN3) 

JBM1=JB-1 

DO 112 J-2«JBM1 

112 P( IMAX,J)=QUAN14(2.*PI-QUAN3) 

DO 113 J=JBiJMAXl 

113 P( IMAX . J)=QUAN1*(-QUAN3) 

P( I MAX, JMAX )=QUAN1*QU AN2 
F( 1 . JMAX) =QUAN1 *(PI-QUAN2J 
P( 1, 1)=QUAN1*(PI+0UAN2) 

P( IMAX. 1 )=QUAN1*(2.*PI-QUAN2) 

109 CONTINUE 

PB( IMAX)=-CIR+P( IMAX. JE) 

11 ITER=ITER+1 

DPMSUM=DPMSUM+DPK 

IDPM=IDPM+1 

IF( IDPM.LE. 10 )GO TO 512 

DPOLO=DPMSUM 

DPMSUM=0.0 

IDPM=1 

512 CONTINUE 

IF< ITACT.EQ.l )DELTAY=OUPOLD(ITEJ 
IFI ITER/104 10.EQ.ITER ) 


00000156 
00000157 
00000158 
00000159 
00000160 
00000161 
00000162 
00000 163 
00000164 
00000165 
00000166 
00000167 
00000168 
00000169 
00000170 
00000171 
00000172 
00000173 
00000174 
00000175 
00000176 
00000177 
00000178 
00000179 
00000180 
00000181 
00000182 
00000183 
00000184 
00000185 
00000186 
00000187 
00000188 
00000189 
00000190 
00000191 
00000192 
00000193 
00000194 



ro 

-p* 


1 PRINT 1-5. ITER.CIR.OPM, ICON , JCQN , NSSP , DELT AY 

15 FORMAKIH ,* ITERATION* , 14, • CIR = •,F8.5,* DPM = '.Fll.e,* AT*. 

1213,* NSSP = *.I4,* DELTAY OR DELSTAR = *,F7.4) 

IFCM.LE.l .0)00 TO 16 

C ADD PlIMAX.Jl CARO HERE FOR M GT 1.0 CASE 

16 IF{INV,EQ.O.AND.ITACT.EQ.O)GO TO 24 
IF(MHALF.EQ.l )G0 TO 24 

IF( IREAD.EQ. 1 . AND. ITACT .EQ . 1 )G0 TO 9005 
IF( ITER.LT.50JGO TO 24 
IF( ITACT. EQ.l )GQ TO 9005 

IF(MHAUF.EQ.2. AND. ISKP2.EQ. 1 )G0 TO 24 
IF(MHALF.EQ.3.AN0.ISKP3.EQ.l )GO TO 24 
IFIMHALF .EQ .4. AND. ISKP4.EQ. 1 )G0 TO 24 
IF(ITER/10*10.EQ.ITER)CALL SHAPE 
GO TO 9006 

9005 IF( I TER/10* 10. EQ . ITER JCALL VISACT 

900 6 1F{ I TER/LP*LP.EQ.ITER)PRINT22. ( X ( I ) , YU ( I ) , YL ( I ) , 1= ILE. I MAXI ) 

IF( I TER/LP*LP.EQ. ITER IPRINT 22 , ( X ( I ) ,SLU( I ) , SLL { I ) , I = I LE . I MAXI ) 

24 CONTINUE 

IF( I TER.GE.MITER )GO TO 17 

IF( INV.EQ.O. AND. ITACT. EQ.0)GO TO 106 

IFIMHALF.GT.l )GO TO 106 

IFIMHACF. EQ.l. AND. ITER. LT.50)GQ TO 106 
DPM=0 . 

106 CONTINUE 

IFIDPM.lt. CONVIGO TO 17 
21 DPM=0.0 
GO TO 7 

17 continue 

C *** THE FOLLOWING CAN BE USED TO PRINT OUT THE ******* 

C ******PERTURBATION POTENTIAL FLOWFIELO SOLUTION IF DESIRED******* 

C DO 18 JJ=1,JMAX 

C J=JMAX+1-JJ 

C PRINT 19, J 

C 19 FOHMAT<lH ,*ROW *,I5) 

C PRINT 20 , <P( I , J) . 1=1 , IMAX) 

C 20 FORMATIIH .10E11.3) 

C 18 CONTINUE 


00000195 
00000196 
00000197 
00000198 
00000199 
00000200 
0000020 1 
00000202 
00000203 
00000204 
00000205 
00000206 
00000207 
00000208 
00000209 
00000210 
0000021 1 
00000212 
00000213 
00000214 
00000215 
00000216 
00000217 
00000218 
00000219 
00000220 
00000221 
00000222 
00000223 
00000224 
00000225 
00000226 
00000227 
00000228 
00000229 
00000230 
00000231 
00000232 


no on 


l\3 

tn 


PRINT 19. JB 

PRINT 20. (PB( U . 1 = 1 . IMAX ) 

IFIMHALF.LE.NHALFIGO TO 8007 

***** the following CA be used to PUNCH OUTPUT IF DES I RED****** 
DO 8005 J J=1 . UMAX 
C8006 FQRMAT<5E15.7) 

C J=JMAX-JJ+1 

C8005 CONTINUE 
8007 CONTINUE 

C PRINTE SHAPE HERE IF REQUIRED 
IFIMHALF.EQ.l )GO TO 26 
IF( INV .EQ. 1 )CALL SHAPE 
IF( ITACT.EQ.OJGQ TO 26 
IFI I TER.GE.MITER )GO TO 7501 
CALL VISACT 
7501 PRINT 9008, RN 

9008 FORMAT «• 0* . 'BOUNDARY LAYER ANALYSIS FOR REYNOLDS NUMBER QF»,Ei2 
*>"/,5X,«X',9X,'YU0RIG'.4X,'DU',8X,»SLU'.7X,* YLOR IG* , 4X , » DL • , 8X , • 

*• » 

PRINT 9009. (XIII . YUOR 1G( I ) .DUPOLDI 1 1 .SLU( I ) .YLOR IGI I ) .OLWOLDI I I 
*SLL( I ) . I = ILE. ITE ) 

9009 FORMAT ({5X.7F10. 5) 

GO TO 9007 

26 CALL PRESS 
9007 DO 25 I.= ILE,IMAX1 

YU(I ) = A1*TAN( PI/2.*YU( I) ) 

25 YL( I )=A1*TAN( PI/2.*YL( 1 ) ) 

PRINT 6004 

6004 FORMATUH CP BY CENTRAL DIFFERENCES') 

PRINT 9010 

9010 FORMATUH , • X • . 1 OX. • CPU* , 1 OX , • CPL • ) 

PRINT 901 1 , ( X( 1 ) . CPU( 1 } . CPL( I ) . 1=1LE. IMAXl ) 

9011 ,FORMAT«lH .3F10.3) 

IMAX2=IMAX-2 
PRINT 221 

221 FORMATUH . • X • . 1 OX , » YU' , 1 OX . • YL' , 1 OX . • SLU* . 8X , • SLL • ) 

22 FORMAT83(' X= ',F7.4.' YU= '.F7.4,' YL= ',F7.4)) 

PRINT 220, (X( I ) . YU( I) ,YL( I ) .SLU< I ) ,SLL(I ) . I=ILE, ITE) 

220 FORMATiUH .5F10.5) 

IF(MHALF.LE.NHALF)GO TO 8014 


00000233 
00000234 
00000235 
00000236 
00000237 
00000238 
00000239 
00000240 
00000241 
00000242 
00000243 
00000244 
00000245 
00000246 
00000247 
00000246 
3. 00000249 
SLL00000250 
00000251 
. 00000252 

00000253 
00000254 
00000255 
00000256 
00000257 
00000258 
00000259 
00000260 
00000261 
00000262 
00000263 
00000264 
00000265 
00000266 
00000267 
00000268 
00000269 
00000270 
00000271 
00000272 



r 


8014 CCNTINUE 

00 9002 I=ILE,ITE 
YU( I )=ATAN( YU( I ) /A1 ) /PI2 
9002 YL( I i=ATAN( YL f I )/Al )/PI2 
DO 500 1=2, ILEl 

DO 501 J=2,JMAX1 

U=QI*( COS< ALP) +FF{ I ) * { P( IF 1 , J )-P ( I-l , J) »/( 2.*DS) ) 
V=QI*( SIN(ALP) +GG( J )* ( P( I . J+ 1 ) -P ( I . J-l ) ) / ( 2 .♦ DE ) ) 

uu=u*u 

vv=v*v 

AD=A 12-0. 2*( UU+VV-QI 2 ) 

501 IONIC! J)=100.0*SQRT((UU+VV)/AD) 

PRINT 28. ( IONIC! J).J=2,JMAX1 ) 

500 CCNTINUE 

DO 502 I=ILE.ITE 
DO 503 J=2,JMAX1 

503 ICNIC(J)=0 
JB2= JB-2 

DO 504 J=JB2,JMAX1 

IFtYUt £> .GT.EI J) .AND. YU{ I) .LE.EI J+1 ) )GO TO 505 

504 CONTINUE 

505 JA=J+1 
IF(JA.LE.JB)JA=JB+1 
DO 506 J=JA,JMAX1 

U=QI *{ C05( ALP) +FF(I)*(P(I+l.J)-PII-l,J))/{2.*DS)> 
V=QI + ( SIN( ALP) + GG( J)*(P( I , J+1 )-P< I, J-n )/( 2. + DE) ) 

UU=UFU 

vv=v*v 

AD=AI2-0.2*(UU+VV-QI2) 

506 IONIC! J)= 100.0 ♦SORT!! UU+VV)/AD) 

JB2= JB+2 

DO 507 JJ=1,JMAX1 
J=JB2- JJ 

IF!YL! 1 ).GE.E! J) .AND.YL! I) .LT.E! J + 1) )GO TO 508 

507 CONTINUE 

508 JA=J 

IF! JA.GE. JB ) JA= JB- 1 
DO 509 J=2,JA 

U=QI ♦! COS! ALP) +FF! I ) ♦ ! P! I + 1 , J ) -P! I-l , J ) ) /! 2.*DS> ) 
V=QI * !SIN!ALP) + GG!J)*!P!I,J+1)-P!I,J-1))/’! 2.4DE) ) 


00000273 
00000274 
00000275 
00000276 
00000277 
00000278 
00000279 
00000280 
00000281 
00000282 
00000283 
00000284 
00000285 
00000286 
00000287 
00000288 
00000289 
00000290 
00000291 
00000292 
00000293 
00000294 
00000295 
00000296 
00000297 
00000298 
00000299 
00000300 
00000301 
00000302 
00000303 
00000304 
00000305 
00000306 
00000307 
00000308 
00000309 
00000310 
0000031 1 
00000312 



IF{ J .EQ.( JB-1 ) ) V=QI*( SIN{ ALP)+GG« J)*{PB( I )-P( I , J-1 ) )/(2.*DE) ) 

uu=u*u 

vv=v*v 

AO=AI 2-0.2*< UU + VV-QI2 ) 

509 I0NIC{ J)=100.0*SQRT(( UU+VV )/A0) 

PRINT 28t (I0NIC( JJ f J=2tJMAXl ) 

502 CONTINUE 

DO 510 I=ITE1,IMAX1 
DO 511 J=2,JMAX1 

U=Q1*( COS( ALP)+FF( I ) * ( P( I + 1 , J J -P ( I- 1 , J ) ) /( 2.*DS ) ) 

V=Q1*( SIN(ALP)+GG( J)*(Pl I , J+ 1 )-P ( I , J- 1 ) )/(2.*DE> > 

IF( J.EQ. JB) V-V-QI*{GG( J) *( CIR/(2-*DE ) ) ) 

IF( J.EQ.JB-1 ) V=V-QI*( GG{ J )*( CIR/< 2.*DE) ) ) 

UU=U*U 

VV=V*V 

AD=AI2-0.2*(UU+VV-QI2) 

511 IONIC! J)=100.0*SQ«T(( UU+VV)/AD) 

PRINT 28. (IONIC! J}.J=2.JMAX1 ) 

510 CONTINUE 

28 FORMAT! IH ,4013) 

DO 9003 I^ILE.ITE 
YU!IJ = A1*TAN( PI/2.*YU( I ) J 
9003 YL! I ) = A1*TAN( PI/2 .♦YLJ I ) ) 

CL=0 .5*(CPL( ILE)-CPU( ILE))*(X(ILE)+0.5> 

CPSTAG=2./! 1.4*M*M)*(! 1 . +0 . 2*M*M J +*3 . 5- 1 . ) 


00000313 

00000314 

00000315 

00000316 

00000317 

00000318 

00000319 

00000320 

00000321 

00000322 

00000323 

00000324 

00000325 

00000326 

00000327 

00000328 

00000329 

00000330 

00000331 

00000332 

00000333 

00000334 

00000335 

00000336 

00000337 


CD=!CPSTAG+CPU! ILE )) * ! YU ! ILE ) ) *0 . 5-! CPST AG+CPL ( ILE) ) *! YL! ILE ) I) *0 . 5000 00338 
CMUE=0 .5*!CPU! ILEJ-CPL! ILE) )*! X ( ILE) +0.5 )**2 00000339 


IENO=I TE-1 


00000340 


DO 9000 I=ILE,IEND 


00000341 


T1=CPL<I)-CPU! I ) 
T2=CPL! I+D-CPU! I + l) 
T3=! X! I+l 3-X! I) )*0.5 
CL=CL+ (T1+T2) *T3 


00000342 

00000343 

00000344 

00000345 


IF! ITACT.EQ.l )GO TO 8010 00000346 

CD=CD+(.CPU( I ) +CPU! 1 + 1 ) >*0.5*! YU! I+l ) - YU! I ) )-!CPL! I ) +CPL! I + l )) 40.5 00 000347 
1 + ! YL! l + D-YL! I ) ) 00000348 


ro 



I\3 

00 


GO TO 8011 

8010 CD=C£H-4CPUt I1+CPU( I + l ) 

*) >*.5*«YLORIG( I + U-YLORIGl I ) 

8011 CONTINUE 

T8=-T1 *(X< n+0.5 ) 

T7=-T2*(X( I+l )+0.51 
9000 CMLE=CMLE+( T6+T7 )*T3 

CL=CL+0.5*(CPL( XTE)-CPU( ITE) 
CM1_E=CMLE + 0.5*(CPU(ITE)-CPL{ 
IF ( I TACT.EQ. 1 ) GO TO 8012 
CD=CD-« CPU! I TE )+CPL( ITE) ) *0 . 
GO TO 8013 

8012 CD=CO-aDCORR 

8013 CONTINUE 

FN=CL*COS( ALP3-CO+SIN1 ALP) 
FT=CL* S I N( ALP ) +CD*CO S J ALP ) 
CL=FN 
CD=FT 

CMCA=C MLE+CL/4 . 


00000349 

YUQR IG( I +1 >-YUORlG( I ) )- (CPL( I ) +CPL1 I + l 0 00 00350 

) 00000351 

00000352 

00000353 

00000354 

00000355 

)*(0.5-X< ITE) » 00000356 

ITE) )*(X(ITE)F0.5)*(0.5-X( ITE) ) 00000357 

00000358 

54(YU( ITE)-YLt ITE) ) 00000359 

00000360 
0000036 1 
00000362 
00000363 
00000364 
00000365 
00000366 
00000367 


CDWAV=CD 
CD=COWA’V + CDF 
PRINT 9012,CDWAV 

9012 FORMAT < 1H0.20X* • WAVE CD = ',F10-6) 
NQV= ITE-ILE+1 
DO 114 I=ILE,ITE 
J=I-ILE1 
J1=J+NQV 
J2=J+2*N0V 
J3^J+3*.N0V 
J4=J+4*N0V 
AA( J)=X( I ) 

AA< J1 ) =CPU( I ) 

AA( J2) =CPL( I ) 

AA( J3)=-YU( I ) 

114 AA( J4)--YL( 1 ) 

NL=50 

IF (NOV .GT.45)NL=100 

CALL PLQT{ ICASE,AA,NOV,5,NL.O) 

CLCIR=2.'*CIR 

PRINT 8002.CPSTAR,CLCIR 
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00000381 
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00000383 

00000384 

00000385 

00000386 

00000387 

00000388 



8002 FOHMAT41H . 40 X PRESS URE COEFF I C I ENT • , 4 IX , • CPSF AR = '.FIO.A, 
1 5Xt *CLCIR = • ,F10.4) 

PRINT 9001, CL«CD,CMLE, CDF, CMC4 

9001 FORMATt IH0,20X, • CL = 'tFlO.A.' CD = '.FlO.e,* CMLE = ‘.FIO.A, 
CDF = '.FlO.e,* CMC4 = *,F10.4) 

PRINT 8003 

8003 FORMAT tlHI) 

IF{MHALF.GT,NHALF)GO TO 100 

MHALF=MHALF+1 

MITER=MITER/2 

CALL HALVE 
C 

IFdNV.EQ.l .AND. MHALF.EQ.3) MITER=400 
IF{MHALF.EQ.4)MITER=400 
C 

DPM=0. 0 
DPOLD=0.0 
IDPM=1 
DPMSUM=0.0 
EPSS=EPSSD 
EPS=EPSO 
ITER=0 
DELTAY=0.0 
GO TO 101 
100 CONTINUE 

IF( INV.EQ.l )CALL BDLY 
IF< ITACT.EQ.l >G0 TO 9014 

WRITEC 7,9015) CX{ I) ,YU( I ) ,YH I ) ,CPU(I ) , CPLI I ) , 1=ILE, ITE) 

9015 FORMATi5F10.5) 

STOP 

9014 WRITE! 7.9015) (XII) ,YUQRIG( I ) .YLOfilG! I >,CPU( I ) ,CPL(I ) , I=ILE, ITE) 
STOP 
END 
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00000403 

00000404 

00000405 

00000406 

00000407 

00000408 

00000409 

00000410 

00000411 

00000412 

00000413 

00000414 

00000415 

00000416 

00000417 

00000418 

00000419 

00000420 


ro 
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SUBROUTINE FOIL 00000421 

CC **♦♦♦♦*♦♦* READS IN INITIAL AIRFOIL SHAPE AND DETERMINES ORDINATES 00000422 
C AND SLOPES AT COMPUTATIONAL GRID POINTS ♦*♦♦**♦*♦♦♦♦ 00000423 

REAL M 00000424 

DIME NS LON X 1 < 99 ) . Y I { 99 ) , XO ( 99 ) , YO ( 99 ) , S I ( 99 ) . SO ( 99 > , XPI99 ) , YP ( 99 », 00000425 
IDl Y( 99® ,D2Y(99 ) . D3YI 99 J , X I 81 99 J . Y IB( 99® 00000426 

DIMENSION X0RI99) 00000427 

COMMON CPU! 99 ) ,CPL(99 ) ,E( 99) .DUl (991 .DU2(99) .DLl (99) .DL2C99) , D ( 99) 0000Q428 
1 ,FF( 99) .FFP12(99 ) ,FFM 12(99) ,FFM1 (991 ,FFM32(99» . 00000429 

1P1(99),P2(99),PB(991,P(99.99),RS(991.S(99) .SUPI99) .SUB (99) . TEMP ( 99000 00430 
2) ,X( 99® . Y(99) . YU(99) , YL(99 ) , SLUI 99) , SLL( 99) . 00000431 

3A1 ,A2, AI2,,ALP .CIRtEPS.EPSS .DE.DS .DP,DPM,F,FP12,FM12,FM32,M, QI ,QI2, 00000432 
4W . XI * X2. V VJB, VVJBl . AA JBl , AA JB.QQ JBiQQJBl >UUJB. VVJBPl .QQJBPl .AAJBPl 00000433 
5.Q.QQ»UUJB1,PI»PI2,A22.A11.X4,S4 00000434 

COMMON I . ITE, ITEl.ILE, ILEl ,11.11 1 .ICON. I MAX, I MAX l.INV.JB.JAl.JBl* 000 00435 
1 J MAX, J CON, J MAXI ,NSSP, Il« 00000436 

CCMMON/FI X/MH ALF 00000437 

CGMMON/RED/ITERP 00000438 

CCMMON/FIPUT/IREAD 00000439 

CCMMON/NASH/RN, IBDLY, I T ACT , YUOR I G ( 99 } ,YLORIG(99) , SUPPER (99 ), SLOWER 00 000440 
1 (99) , DELI 99 ) ,DUPaLD(99) . DLWQLD(99 ) ,CDF 00000441 

CCMM0N/IPT1/XIBDLY,RDEL,RDELFN,RCP8, SP, XSEP, CONY ,CPB, XMON , XLSEP. 00000442 
1 MITER ,LP, I TEUPC , 1 TELWC, XPC 00000443 

C THIS PROGRAM DEPENDS UPON AIRFOIL BEING BEING STUDIED 00000444 

PRINT 2 00000445 

2 FORMAT! IH0.20X, 'AIRFOIL COORD I NATES* ,/ ,5X X YU YL 00000446 

1 UPPER SLOPE LOWER SLOPE") 00000447 

IBDLY=ELE-1 00000448 

215 I BDLY=lBDLYi-l 00000449 

IF(X( IBDLY) .LT.XIBOLY3GO TO 215 00000450 

IFUTACT.EQ, 1 )GO TO 35 00000451 

IF( I NV .EQ .0 ) GO TO 7 00000452 

35 IF(MHALF.LE.2) GO TO 7 00000453 

I=IMAXl/2 00000454 

II=IMAX-2 00000455 

ISTOR=Lll 00000456 

IF(ITACT.EQ.l) I11=IBDLY-1 00000457 

8 CPU( I 1 » = CPU( 1 ) 00000458 

CPL( I I0=CPL(I ) 00000459 

SLU( I I J = SLU( I ) 00000460 


SLL( II J = SLL(I ) 

DUPOLDCIl )=DUPOLDU ) 

DLWOLD in ) = Di_WOLD( I ) 

YU(II)=YUlI) 

YLCin=YL(I ) 

1 = 1-1 
n=i 1-2 

lf=( 1 l.GE. 11 1 )Ga TO 8 

IMAX2=lMAX-2 

IS=I 1+3 

DO 9 l=ISiIMAX2.2 

DUPOLDI I )=.5*(DUP0LD( 1+1 )+DUPOLO< 1-1 ) ) 
DLIKOLDI 1 >=.5*( DLWOLOl I + l ) +DLWaUDC I-l } J 
CPU( 1 ) =0.5* (CPU { I+1)+CPU( I-l) ) 

CPL( I ; = 0.5*(CP1_< I+l ) +CPL( I-l ) 3 
SLU(1) = 0.5*(SLU( I + 1) + SLU( I-D) 

SLL( 1 > =0.5* ( SLLl I + l ) +SLL( I-l ) ) 

YU( I )=a.5*( YUC 1+1 »+YU( 1- 1) ) 

9 YL't I ) = 0.5*IYL( I + U+YLl 1- 1 ) ) 

YUl IMAXl )=0.0001 
YLl IMAXl )=-0. 0001 
SLUdMAXD^O.O 
SLLl IMAXl J =0.0 
DUPOLDl IMAXl )=0. 

OLWOLDI IMAXl ) = 0. 

Ill=lSTaR 
GO TO 10 
7 CONTINUE 

DO 6 I=ITE1.IMAX 
YUORiGll )=.0001 
YLQRIGI I )=-0.0001 
DUPOLDIl )=0. 

OLMOLOIl )=0. 

YUll )=0.0001 
Y1_(I )=-0.00 01 
SLU( I)=0.0 
6 SLL( 1)=0.0 
10 IFdNV.EQ.l )IEND=I 11 
IF(INV.EQ.O) IEND=ITE 
IFCMHALF.LT.3 )IEND=ITE 
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UPPER SURFACE, XI IN PERCENT CHORD 
IF(MHAI_F.GT .1 )GO TO 21 
READ 14. N1 

READ 1 5. ( XI ( 1 ) , YI ( I ) . 1=1 ,NI ) 

READ15 .DERI X, DERI Y.DERFX.DERFY 

14 FORMAT (15) 

DO 18 1=1 «NI 

18 XIU ) = XI ( I )-0 .5 
21 DO 16 I=ILE,IEND 
II=I-ILE+1 

15 FORMAT(8F10.41 

15 FORM AT (2F1 0.4) 

16 XO(II)=X(l) 

NO=I END-ILE+l 

CALL ARC(Xl,YI,XO,YO,31.SO,XP.YP.DlY,D2Y, D3 Y , DER I X , OERFX , DER I Y , 
IDERFY. NI ,NQ, 1 ) 

IF( I TACT.EQ. 1 )GO TO 2J 
DO 17 I=IL£,IEND 
1I=1-ILE+1 
DUPOLDCI )=0. 

YU( I )=Y0(1I ) 

YUOR IG« I )=Y0( I I ) 

17 SLU(I)=YP(II)/XP(II) 

GO TO 25 

2J DO 24 X=ILE , lEND 
I I=I-I LE+ 1 

IFt I .LT.IBDLY)GQ TO 36 
IFtMHALF.GT .2 )GQ TO 26 
36 YU(I)=Y0(II) 

YUORIGC I ) = YO( I I ) 

DUPOLDCI )=0 . 

SUPPER H ) = SO( I I ) 

SLU( I)=YP( II )/XP(II ) 

GO TO 24 

26 YUORIG<I)=YO(II) 

SUPPERC I )=S0( 1 1 ) 

24 CONTINUE 

LOWER SURFACE, XI IN PERCENT CHORD 

25 IFIMHALF ,GT. 1 )G0 TO 22 
READ14 ,NIB 
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READ15,{Xia(I)*YIB(n,I = l,NIB) 
READ15tDERIXB,DERIYB.DERFXB,DERFYB 
DO 19 1=1 .NIB 

19 XIB( I >=XIB( I )-0.5 

22 CALL ARC( XIB.YIB.XQ.YQ.SI. SO . XP , YP ,D 1 Y , D2Y , D3Y , DER I XB . DERFX8 . 
IDERIYB.DERFYB.NIB.NO, 1 ) . 

IFUTACT.EQ. 1 )GQ TO 27 
DO 20 I=ILE,IEND 
I I=I-IL£+ 1 
DLWOLDfi I ) = 0 . 

YL{ I ) = Y0( II ) 

YLORIG t I )=YL (II) 

20 SLL(ID=YP(II»/XP(II) 

GO TO 28 

27 DO 29 I=ILE.lEN0 
I I=I-I LE+1 

IF( I .LT.IBDLY)GO TO 37 
IF(MHALF.GT.2)G0 TO 30 
37 YL(n = YQI II » 

YLORIG (I ) = YO( I I ) 

DLWOLD(I)=0. 

SLOMERI I } =SO( III 
SLLI I ) =YPU n/XP(I I ) 

GO TO 29 

30 YLORIGd I )=YO( 1 I ) 

SLOWER! U=SO( I I ) 

29 CCNTINOE 

IFt IREAO.EQ.O »GO TO 28 

READ 2 17, (YU( I ) , YL< I ) ,SLU( I ) ,SLL( I), I = ILE,ITE) 

READ 2 17, I DUPOLDI 1 ) ,OLWOLD( I ) . I=ILE. ITEI 
217 F0RMAT(t5E15.7) 

28 DO 1 I =ILE, lEND 

PRINT 3. X( I ) , YU( I ),YL( I ),SLU< I ) .SLL( I ) 

3 F0RMATt5F10.5» 

1 CONTINUE 

C FINDING COORDS IN ETA-PSI SYSTEM 

DO 4 I=ILE,IMAX1 
YUCI )=ATAN( YU( I )/Al)/PI2 

4 YLII )=ATANI YL( I I/AIJ/PI2 
IF(INV.EQ.O)RETURN 
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Ck> 

-p> 


IFtIREAD.EQ. 1 . AND.MHALF.EQ.l )GO TO 103 
IFCMHALF.EQ. I ) RE TURN 

1F(MHALF.GT.3.AND.ITERP.EQ.1 )GO TO 100 
103 CONTINUE 

READ(5 ,5) (CPU( I ) . 1=11 ,ITE) 

CPU! 1 1 1 )=0. 0 

READ(5 ,5)(CPL( I) ,1=11 , I TE ) 

CPL( I 1 1 ) = 0. 0 
ITEP1= ITE+1 
DO 339 l=ITEPltIMAX 
CPU( 11=0. 

339 CP1.( 11=0. 

5 FQRMATltaFlO .3) 

100 CONTINUE 
PRINT 101 

101 FORMAT! 1H0,20X, 'UPPER CP INPUT') 

PRINT 5 , ( CPU( I 1 . I=I 1 ,ITE) 

PRINT 102 

102 FORMAT 1H0.20X. • LOWER CP INPUT') 

PRINT 5,(CPL( I) . 1=11 ,ITE) 

RETURN 

END 
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SUBROUTINE VI SACT 


COMPUTES BOUNDARY LAYER WHEN VISCOUS INTERACTION INCLUDED 
IN THE ANALYSIS CASE ♦♦*♦♦*♦**♦*♦** 


00000601 

00000602 

00000603 

0000060A 

00000605 

00000606 


CO 


C*4=*«**;tc«*« 

c 

REAL M.NEW 

COMMON CPU (.99) ,CPL(99) ,E(99) ,DU1 (99) .DU2(99) . DL 1 (99 ) , DL2( 99 ) , D( 99 ) 000 00607 
I.FF( 99 J.FFP12(99) .FFM12( 99) ,FFM1 (99) ,FFM32<99), 00000608 

IP 1(99) ,P2(99) ,PB(99) , P ( 99 ,99 ) , RS ( 99) ,S(99) ,SUP(99) , SUB 199 ) ,TEMP( 9900000609 
2) ,X(99» , Y<99) ,YU(99) , YL(99 ) ,SLU{ 99) ,SLL(99) . 00000610 

3A1.A2, At 2, ALP, CIR,EPS,EPSS,DE,DS.DP,DPM,F,FP12,FM12,FM32,M,QI ,012,0000061 1 
4W.X1,X2.VVJB.VVJB1.AAJB1 . A A JB . QQ JB,QQJB1 , UUJB. VV JBP 1 . QQ JBP 1 , A AJBPl 00000612 
S,Q.QQ,UUJBI,P1 ,PI2,A22,A11 .X4.S4 00000613 

COMMON I.ITE.ITEl,lLE,ILEl,Il.Ill.ICON, I MAX, I MAXI ,INV.JB.JA1.JB1, 00 000614 
UMAX, JCON.JMAXl ,NSSP, I W 00000615 

COMMON/NASH/RN, I BDLY, ITACT .YUORI G (99 ) , YLDRIG(99) . SUPPER (99 ) , SLOWEROO 0 006 1 6 
1199) ,DEL(99),OUPOLD(99) ,DLWaLD(99),COF 00000617 

COMMON/DELTA/ITER 00000618 

CCMMONy«IPTl/XIBOLY,RDEL,RDELFN,RCPB, SP, XSEP, CONV , CPB, XMON , XLSEP , 00000619 

1 MITER, LP, ITEUPC, ITELWC, XPC 00000620 

DIMENSION UE(99) , OSS ( 99 ) , DUDS( 99 ) , YUN ( 99 ) , YLN ( 99 ) ,EM( 99) 00000621 

DIMENSION XI (99) ,Y1 (99) . XO( 99) , Y0(99 ) , SI ( 99) . SOI 99) , XP( 99) , YP(99) , 000 00622 
1D1Y( 99 9 ,02Y(99) ,03Y(99) ,XIB(99 ) , YIB( 99) 00000623 

DIMENSION HS(99) ,XOR( 99) 00000624 

DIMENSION CPUT<99) ,CPLT(99) 00000625 

SEPMK=0 00000626 

IF( IMAX.GT.55)RDEL=RDELFN 00000627 

ISIDE=0 00000628 

ICYCLE=1 00000629 

ICYBOT=l 00000630 

CALL PRESS 00000631 

IFIDPM^LE.CQNVJGQ TO 5009 00000632 

IF(ITER.GE.(MITER-l))GO TO 5009 00000633 

GO TO 5005 00000634 

5009 DO 5006 J=1LE,1MAX1 00000635 

CPUT( J»=CPU( J) 00000636 

5006 CPLT( J)=CPL( J) 00000637 

5005 CONTINUE 00000638 

DO 500 J=IL£,ITE 00000639 

YU( J)=A1*TAN(PI72.*YU( J) ) 00000640 


500 

YLCJ )=A1*TAN(PI/2.*YL( J) ) 

00000641 


TR=0 .3424 

00000642 


TE1=5, E-03 

00000643 


TE2=5.E-05 

00000644 


LMON^I MAXl/2+1 

00000645 

40 01 

LM0N=LM0N+1 

00000646 


IFIXlLMONl.LT.XMQNJGO TO 4001 

00000647 


LSEP=IMAXl/2+l 

00000648 

4002 

LSEP=USEP+1 

00000649 


IF(X(LSEP» .LT.XLSEPJGO TQ 4002 

00000650 


CM=1 .+ dZ*M**2 

00000651 


1FUTER/LP*LP.EQ.ITER»PRINT 1,RN 

00000652 

1 

FORMAT tlHO. lOX. • BOUNDARY LAYER ANALYSIS 

FOR REYNOLDS NO. OF • .E 1 0 . 00000653 


13.//,5X,« X* ,9X, •M'.eX,* 

DELS* .4X, 'THETA* .3X-, ■ SEP* , 00000654 

210X.«H*.9X,»PI< ,5X.*TAU* ) 

00000655 

1000 

ISIOE=ISIOE+1 

00000656 


SEPMK=0 

00000657 


DO 2 J=ILE,ITE 

00000658 


DEL( J) =0 . 

00000659 


IF( ISIDE.EQ.2JG0 TO 3 

00000660 


CP=CPU( J1 

00000661 

4 

TESr=( 5.*(CM/( l.+.7*CP*M**2)**( .2857143) 

-1.)) 00000662 


EM( J )=0. 

00000663 


IF(TEST.GT.O. ) EM ( J ) =S QRT 1 TEST) 

00000664 


DD=1 .+-2+EM(JI**2 

00000665 


T=CM/DD 

00000666 


UE( J )=EM( J)/M*SQRT(T) 

00000667 


GO TO 2 

00000668 

3 

CP=CPL« J) 

00000669 


GO TO 4 

00000670 

2 

CONTINUE 

00000671 


IFlISIOE.EQ.l )USTR=UE( ITE) 

00000672 


ILEP1= JLE+1 

00000673 


DO 5 J=IL.EP1,ITE 

00000674 


IF(ISI0E.EQ.2)G0 TO 6 

00000675 


DSS( J) =SUPPER< J) -SUPPER! J- 1 ) 

00000676 


GO TO 5 

00000677 

6 

DSS( J)=SLQ«ERl J)-SLOWER( J-1 ) 

00000678 

5 

DUDS( J )=( UE( J)-UE( J-1 ) )/OSS( J) 

00000679 


DT=1 . 

00000680 



00 


SEPR=0 . 

HH=0. 

1BDS=ITE-1 

DO 200 J=I8DLY,ieDS 

EMT=(EM( J+1 }+EM( J3 )/2 . 

UESA=( UE( J+1 l+UE< J3 )/2. 

VM=1 .+ .2*EMT**2 
T=CM/VM 

RFT=UESA*(T+TR>*T/( 1 .+TR) *RN 

IF( J.NE.IBDLYJGO TO 30 

ThET 1=320. yRET 

THET2=THET1 

GE=6.5 

30 FC=1 .+ .066+EMT**2-.00a*EMT**3 
FR=1 .134*EMT**2+.027*EMT**3 
IND=0 

AO IND=IND+1 

IF(THEI1 .LT.1.E-06)THET1=1 .E-06 
IFtFR.LT.O. 3FR=ABS1FR 3 
IF<HFT ,LT.O. )RFT=ABSi RFT ) 

TAU= (FC*(2.471 1*ALQG{FR*RFT*THET1 ) +4 .754 4- 1 . 5*GE#-1 7 24 ./f GE**2+ 
1200. )-16.87) 

IF(TAU.LT.O . 3 TAU=-TAU 

TAU= 1 . /TAU*+2 

FB=1 ./'(l.-GE+SQRTCTAU) ) 

H=( HB+ 1 . J ♦( 1 . + . 178*EMT*4>21-i . 

SEP=-ThETl*DUDS( J+1 )/UESA 
IFfSEP.LT.SPJGO TO 41 
IFCXC J.+ l ) .LT.XSEP)SEP=SP 
41 PI I=H*SEP/TAU 

IF(PI I .LT.-l .5)PII=-1 ,5 
IF (PI I .GT. 1 .E4JPII = 1.E4 
50 CONTINUE 

G=6. l*SQRT( PI I+1.8D-1.7 
T2=ABS'( <G-GE)/GE) 

CE=G 

DT2=DT 

DT=( H+2 .-EMT**2 } *SEP+TAU 
IFdNO-GT.l )G0 TO 100 
THT=THET2 
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CO 

00 


100 


110 


120 

130 


1 0 

205 

9 


ThETl=DT»DSS( J+1 )+THT 
THET1= .5*(THET1+THTJ 
GO TO 40 
DT=( DT2+DT)/2. 

TI=ABSC (DT-DT2)/DT) 

IF(TI .LT.TE2)GO TO 120 
THET1=DT4DSS( J+1 ) +THT 
THET1= THETl+THT) 

IFMND ,l.E,500 )GO TO 40 
IFCPI I .EQ.-l .5)G0 TO 130 
GO TO 130 

IF(T2.G£.TEl)GO TO 110 
THET2=DT*OSS( J+1 1+THT 
THET1=,5*(THET2+THTJ 
£EP=-THET1 *00051 J+1 J/UESA 

SEPR=( SEPR*DSS( J + 1)+SEP*DSS( J) ) / ( OSS 1 J )+OSS ( J + 1 ) ) 
HH={ HH*0SS( J+1 j +H*0SS { J) )/(OSS( J ) +OSS1 J+ 1 1 ) 
OEl_S=Flh*THT 
OEL(JJ=OELS 
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IFIDELI J » .GT.O. 1 )D£L< J )=0 . 1 00000740 

HS{J)=HH 00000741 

IF(ITER/1_P*LP.EQ.ITER»PRINT 10.X1J),EMC J) . DEL S,THT , SEPH .HH , P I I , TAU 00000742 
FORMAT«9F10,5 .110.F10.5) 00000743 


CONTINUE 


00000744 


CONTINUE 00000745 
IF! J.EQ. IBDSIGO TO 200 00000746 
SEPR=SEP 00000747 


HH=H 

200 CONTINUE 

SEPR=- SEPR+2. *SEP 

HH=HS( ITE-1 ) +<OSS( ITEl/DSSl I TE-1 ) )♦( HS( I TE- 1 ) -HS { I TE-2 ) ) 

HS(ITEJ=HH 

DELS=HH*THET2 

DELI ITE1=DELS 

IFIDELC ITE) .GT.O. 1 )DEL ( I TE )=0 . 1 

IF( I TER/LP4LP.EQ. ITER JPRINTl O.Xl ITEI , EMI ITE) , DELS. THET2 , SEPR . 
4HH.PI I ,TAU 

202 IF( ISIOE.EQ.2)GQ TO 203 
EMSTR=EM1 ITE) 

HSTR=HH 
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TSTR=THET2 
00 170 J=ILE,IBDS 

170 IF(DEL|J+1J .LT.DELi J) »DEL( J+1 )=DEL(Jl 
203 CONTINUE 

IFdSIDE.EQ.DGO TO 2200 
J=ILE 
2180 J=J+1 

IF(DEL<J+U .LT.DELl J) )G0 TO 2185 
IF( J,LT. IBDS) GO TO 2180 
GO TO 2200 

2185 IF(X( J 1 .GT.XPOGO TO 2190 
DELC J+l) = OELt J) 

GO TO 2180 
2190 J=J+1 

IFC J.GT.IBOSIGO to 2200 

IF(DEL«J«-1 ) .GT.OEEl J) )DEL< J+1 J=DEL( J ) 

IF( J .LT.IBDS) GO TO 2190 
2200 CONTINUE 
ISMOTH=2 

IFC IMAX.GT.55) ISMOTH=4 
00 171 JJ=l,ISMOTH 
OLD=DEHILE> 

ILEP2= U_E + 2 

DO 171 J=ILEP2.ITE 

NEW=DEL( J-1 ) 

DELI J- 1 ) = .25*(OLD+NEti + NEW + DELi J) } 

171 OLO=NEW 

FAC=-DSS( ITE)/DSS(lTE-n 

DELI ITE1=FAC*DELI ITE-2 )+I 1 .-FAC ) *DEL I ITE- 1 ) 

DO 172 J=ILEP1,IBDS 

SL0PE=SLUIJ) 

IFIISJDE.EQ.2)SL0PE=SLLI J) 

CO=ABSIATANt SLOPE) ) 

CO=COSCCQ) 

1FIIS1DE.EQ.2)G0 TO 173 

Dy=DUPOLDIJ } + ROEL*< DEL ( J )-DUPOLD { J) ) 

YUIJ)=YUORJGI J)+DY/Ca 

0UP0LD<J)=DY 

GO TO 172 

173 OY=DLWOLD(J)+«DEL*IOEL( J)-OLWOLOI J)) 
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YU JJ = YI_ORlGC J)-DY/^CO 
OLIl(OLD< J)=OY 
GO TO 172 
172 CONTINUE 

SLOPE = SI_U< ITEl 

IFIISIDE.EQ.2)SLOPE=SLL( ITE) 

CO=ABS< ATANI SLOPED ) 

CO-=COS«CO) 

IF(ISIDE.EQ.2)G0 TO 175 

DY=DUPOLD< I TE J +RDEL*( DEL ( ITE)-OUPOLD( ITEJ ) 

YU( ITEi=YUORIG( JTE)«-DY/CO 
DUPOLDC 1TE)=DY 
GO TO 20 ^^ 

175 DY=DLU(OLO{ ITE) +RDEL*( DEL ( I TE J-DLWOLDI ITE) ) 

YLUTE » = YLORIG( 1TE)-DY/C0 
OLWOLDI 1 TE)-DY 
204 CONTINUE 

IF(ITEUPC.EQ.O)GO TO 5003 

♦♦INSERT SEPERATED CORRECTION HERE IF DESIRED+^ 
♦♦ SEPERATED COORECTIGN4^ 

IF( ISIDE.EQ.2)GO TO 5003 
IFUCYCLE.GT. 1 )GO TO 300 
LMON=I MAX/2+1 
CPB=0. 

DO 5001 J=LMON,IBDS 
CPN=CPL( J) 

CPB=AMAX1 (CPB.CPN) 

5001 CONTINUE 
CPB=0. 6 

PRINT 5002tCPB 

5002 FORMAT!' •.'BASE PRESSURE COEFFICIENT = ".FIO.S) 
IFILSEP.EQ. ITE)LSEP=ITE-I 

LSEP1=LSEP+1 

SLOP=(CPB-CPU(LSEP) )/( .5-X(LSEP) ) 

DO 501 J=LSEP1,ITE 

501 CPU( J)=SLQP^( X( J)-X ILSEP) ) +CPUILSEP) 
ICYCLE=ICYCLE+1 
ISIDE=0 
GO TO 1000 

5003 CONTINUE 
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IF(ITELWC.£Q.O)GQ TO 300 
IF( ISIDE.EQ.DGO TO 300 

C *♦ LOWER SURFACE CORRECTION, IF DESIRED** 

IF( ICYBOT.GT. 1 )GO TO 300 
IF(LS£P.EQ.ITE)LSEP=I TE-1 
SLOP=( CPB-CPL(LSEP) )/( .S-X(LSEP) J 
LSEP1=LSEP+ 1 
DO 5004 J=LSEP1,ITE 

50 04 CPL< JJ =SLOP*( X( J)-X(LSEP) ) +CPL(LSEP) 

ICYBOT=ICYBOT+l 
ISI.DE= i 
GO TO 1000 

C ♦* END 5EPERATEO REGION CORRECTION ** 

300 CONTINUE 

IF( ISIDE.lt. 2)G0 TO 1000 
XO( 1 )=-.5 
XU U=-.5 
Yl ( 1 ) = 0. 

M = ITE-ILE + 2 
DO 210 I=ILE.ITE 
I I=I-ILE+2 
XI ( I I )-X( I ) 

XO( I n=X( 1 ) 

210 YU I I ) = YU<I ) 

NO=NI 

CALL ARC( XI ,YI .XO.YO, S 1 . SO . XP . YP . D 1 Y . D2Y , D3Y , 0 . 0 . 0 . 0 . l.O.O.O.NI. 
1 NO , 1 ) 

DO 211 1=1LE, ITE 

II = I-ILlE + 2 
YU I 1 ) = YLI I ) 

IF( I .LT.l BOLY) GO TO 211 
SLU( 1 )=YP( I I ) /XP( I I ) 

211 CONTINUE 

IF( ITEUPC.EQ.OIGO TO 5025 
LSEP1=LSEP+1 

IF( XPC-LT.0.4951G0 TO 5029 
qO 5030 J=LSEP1,ITE 
IF(SLU(J).GT.O.O)GO TO 5031 
5030 CONTINUE 

GO TO 5025 
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5031 DO ,503 2 I=J,ITE 
YU( I J=YU1 J-1 ) 

5032 SLU{ n=0.0 
GO TO 5025 

5029 CONTINUE 

DO 5026 I=LSEP1,ITE 

YU( I J=YU( LSEP) +SLU(LSEP) ♦( X( I )-XILSEP) ) 

5026 SLU( I ) =SLU{LSEP) 

5025 CONTINUE 

CALL A«C(XI ,YI ,XO, YO, SI,S0,XP,YP,D1Y,D2Y,D3Y, O.O.O.O.-l.O.O.O. 

INI, NO, 1 ) 

00 212 I=ILE, ITE 
I I=t-I LE+2 

YU«I)=ATAN(YU<I)/Al)/PI2 
YL( I 3=ATAN( YL( I )/Al )/PI2 
IF( I .LT. I BDLY ) GO TO 212 
SLLl 1 )=YP( I I ) /XP( I I ) 

212 CONTINUE 

IF( ITELWC.EQ.OIGQ TO 5027 
LSEP1=LSEP+ 1 

IF( XPC .LT .0 .495 )GO TO 5036 
D0 5033 J=LSEP1,ITE 
1F(SLL{ JJ .LT.O.OJGO TO 5034 

5033 CONTINUE 
GO TO 5027 

5034 DO 5035 I=J,ITE 
YL(I )=YL( J-1) 

5035 SLL(I)=:0.0 
GO TO 5027 

5036 CONTINUE 

DO 5028 I=LSEP1 , ITE 

YL( I J = YL( LSEP) +SLL(LSEP) *( X{ I )-X ( LSEPJ > 

5028 SLL(I )=SLL(LSEP> 

5027 CONTINUE 

HBT=(HSTR41 .)/( l.+.I78+EMSTR**2)-l. 

HBB=( HH+ 1 . ) /( 1 . + . 178»EM( ITE)*»2)-1. 

CDF=TSTR+(USTR** (2.5+ ,5*HBT) ) +THET2* ( UE { I TE ) * * { 2 .5+.5*HBB) I 
CDF=2. *CDF 

IF(DPM.LE.CONV) GO TO 5010 
_ IF( I TER. GE. ( MITER-1 )) GO TO 5010 
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GO TO 5008 

5010 DO 5007 J=1LE,IMAX1 
CPU( Jl^CPOTC J) 

5007 CPL( Jl =CPLT IJ) 

5008 CONTINUE 
RETURN 
END 
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SU3R0UTINE BDLY 


*********** COMPUTES BOUNDARY LAYER IN THE DESIGN CASE 


00000927 
00000928 
00000929 
00000930 

REAL MfNEW 00000931 

COMMON CPU (99 ) ,CPL(99 ) , E ( 99 1 , DU 1 ( 99 ) ,OU2( 99) *DL1 (99 ) .OL2(99) ,D(99) 00000932 
l.FF(99».FFP12(991 tFFM 1 2 ( 99 ) , FFMl (99) ,FFM32(99)» 00000933 

1PK99) ,P2(99) ,PB(99) ,P(99.99) tRS(99) tS(99) .SUP(99) . SUB ( 99 ) , TE MP ( 99 00 0 00934 
2) -.X(99 1 , Y(99) .YU(99) , YL(99 ) .SLU( 99) , SLL( 99) . 00000935 

3A1.A2, A12,ALP ,CIR,EPS . EPSS , DE. OS . DP . DPM, F ,FP 1 2 . FM 1 2 , FM32» M , Q I ,QI2. 00000936 
4W tXl ,X2t VVJB. VVJBl ,AA JBl . AAJB , QQ JB ,QQ JBl ,UUJB. VV JBPl . QQJBPl , AAJBPl 00000937 
5»Q.QQtUUJBi «PI,PI2.A22.A11,X4,S4 00000938 

CCMMON I » ITE.ITE1«ILE, ILEl . I 1. II 1 , ICON, I MAX, I MAX I , I NV , JB , J A1 , JB 1 , 00000939 
UMAX, JCON, JMAXl ,NSSP. IW 00000940 

COMMON/NASH/RN, I BDLY, I TACT , YU0RIG(99 ) , YLORIGI 99) , SUPPER (99) , SLOWER 000 0094 1 
1(99) ,DEL{ 99) , DUPOLD ( 99 ) , OLWQLD ( 99 ) ,CDF 00000942 

COMMON/DELTA/ITER 00000943 

CCMMON/IPTl/XIBOLY,RDEL,RDELFN,RCPB, SP,XSEP, CONV ,CPB , X MON , XLSEP , 00000944 

1 MIXER ,LP, I TEUPC, ITELWC, XPC 00000945 

DIME NS ION UE( 99 ) , DSS ( 99 ) , DUDS( 99 ) ,YUN(99) , YLN (99 ) ,EM(99) 00000946 

DIMENSION HS(99) 00000947 

OIMENS ION XI(99) , YI (99) , XQ( 99) ,Y0(99),SI ( 99) , XP ( 99 ) , D 1 Y( 99 ) , 00000948 

1D2Y( 99),D3Y(99) ,XIB(99), YIB(99) ,S0(99) ,YP(99) 00000949 

ISIDE=0 00000950 

LSEP=ITE 00000951 

SEPMK=0 00000952 

ICYCLE=1 00000953 

DO 500 J=ILE,ITE 00000954 

YUN(J)=YU(J) 00000955 

500 YLN(J)=YL(J) 00000956 

TR=0,3424 00000957 


Oi 


■p» 

-PH 


TEI-5.E-03 00000958 

TE2=5.E-05 00000959 

CM=l .4^ .2*M**2 00000960 

1 FORMATS IHl « lOX.'BOUNDARY LAYER ANALYSIS FOR REYNOLDS NO. OF •, E 1 0 . 0000096 1 
13»//t5X, • X* ,9X, • Y* ,9X, • YNEIK* t 8X , • M« , 8X. • DELS* .AX, ‘THETA* ,3X. ■ SEP* , 0 0000962 


210X,*H*,9X,*PI* ,5X.*TAU*J 
1000 ISIDE= ISIOE+1 
PRINT 1,RN 
DO 2 J=ILE, ITE 
DELI J»=0. 

IF( I SIDE.EQ.2) GO TO 3 
CP=CPUIJ 1 

4 IEST=( 5.*(CM/( 1 .+.7*CP*M**2)** (.2857 
EM( J 1=0. 

IFdEST.GT.O. ) EM ( J)=SQRT( TEST) 

DD=1 .4 .24EM( J 1 *42 
T=CM/DD 

UE( J) = EM( J)/M*SQRT(T) 

GO TO 2 
3 CP=CPL(IJ) 

GO TO 4 
2 CONTINUE 

IF(ISIDE.EQ.1J LSTR=UE (ITE) 

ILEP1= LLE+1 
XO( 1 )=-.5 
XI( 1 )=-.5 
YI( 1 )=0. 

NI=ITE-ILE+2 
DO 210 I=ILE, ITE 
I I=I-ILE42 
XI( I I ) = X{ I ) 

XOd I) = X( I 1 
210 YI(II)=YUU) 

N0=NI 

CALL ARC( XI , YI.XO. YQ, SI , SO,XP, YP ,DIY 
INO, 1 1 

DO 211 I=ILE,ITE 
I I=I-lLE+2 
Y I( I I )=YL< I ) 

SLU( I) = YPIII)/XP(II) 
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211 SUPPERS I )=SQ( 1 n 

CALL ARC{XI,YI,XO,YO,SI, SO , XP. YP ,01Y ,02Y» D3Y ,0.0. 0.0, -1.0. 0.0, 

iM.No. n 

DO 212 I=ILE,ITE 
II=I-I LE+2 

SLL( I)=YP(IIJ/XP(1I) 

212 SLOWERC n=SO( II ) 

DO 5 J=ILEP1 ,ITE 

IF( ISIDE.EQ.2)GO TO 6 

DSS( Jj =SUPPER( J)-SUPPER( J- 1 ) 

GO TO 5 

6 DSS( J)=SLQIllER( J)-SLOWER( J-1 ) 

5 DUDS( J}=(UE( J)-UEIJ-1 ) )/DSS( J) 

DT=1. 

SEPR=0. 

FH=0 . 

IBDS=t TE-1 

DO 200 J=IB0LY,1BDS 

EMT=(EM{ J + 1 ) +EM( J) )/2 . 

UESA=( UE(J+lJ+UE(JJ)/2. 

VM=1 .+ .2*EMT**2 
T=CM/VM 

RFT=UESA*(T+TR) *T/I 1 ,+TR ) *RN 

IF( J.NE.IBOLYIGO TO 30 

ThETl=320./RFT 

THET2=THET1 

GE=6.5 

30 FC=1 .a-.066*EMT**2-.008*EMT**3 
FR=1 .-.134*EMT**2+.027*EMT**3 
IND=0 

40 IND=IND+1 

TAU=1 ./UFC*( 2.471 1*ALQG( FR*RFT*THET1 )+4.75) + l . 5*GE + 1 724 ./( GE* *2 + 
1200. )- 16.87 )**2 
hB=l ./C 1 .-GE*SQRT.(TAU) ) 

H=(HB+1.)*( 1 .+. 178*EMT**2)-1 . 

SEP=-THET1*DUDS( J+1 l/UESA 
IFISEP.LT.SPJGO TO 41 
IF(X( J+1 » .LT.XSEP1SEP=SP 

41 PI I=H*SEP/TAU 

IF(PI I.LT.-1.5)PI1=-1 .5 


00000998 
00000999 
OOOOIOOO 
00001001 
00001002 
00001003 
00001004 
OOOOIOOS 
00001006 
00001007 
00001008 
00001009 
00001010 
00001011 
00001012 
00001013 
00001014 
00001015 
00001016 
00001017 
00001018 
OOOOl 019 
00001020 
00001021 
00001022 
00001023 
00001024 
00001025 
00001026 
00001027 
00001028 
00001029 
00001030 
00001031 
00001032 
00001033 
00001034 
00001035 
00001036 
00001037 



r 


o> 


IF(PII.GT.1.E4)PII=1.E4 
50 CCNTINUE 

G=6.1*SQRT(PI I+l .8D-1 .7 
T2=ABS( (G-GE)/GE) 

GE=G 

DT2=DT 

DT = ( H+2.-EMT**2) *SEP + TAU 
IF ( I NO .GT . 1 )GO TO 100 
THT=THET2 

THET1 = DT*DSS< J■^l )+THT 
IPET 1= .5*(THET1+THT ) 

GO TO 40 

100 DT=( DT2 + DT ) /2 . 

TI=ABS< (DT-DT2)/DTJ 
IF (T I .L.T.TE2) GO TO 120 
110 THET1=DT*DSS( J+1 )+THT 
ThETl=.5*< THET 1 +THT ) 

IF( IND .LE.500 )GO TO 40 
IFCPI I .EQ.-1.5)GO TO 130 
PRINT 160 

160 FORMAT!* PROBLEMS*) 

GO TO 130 

120 IF( T2 . GE. TE 1 3 GO TO 110 
130 ThET2=DT*DSS< J+1 )+THT 
7HET1= .5*C THET2+THT ) 

SEP=-THETl*OUDS( J+1 )/UESA 

SEPR=( SEPR*DSS< J+1 )+SEP*DSS( J) ) / ( OSS ( J ) +DSS ( J + I ) > 

HH={ HH*DSS( J + 1 ) +H*DSS ( J) )✓{ OS5( J J+DSSC J + 1 ) J 

DELS=HH*THT 

DEL! J)=0£LS 

IF(DEL( J ) .GT.O. 1 )DEL( J ) = 0 . 1 
HS( J ) = hri 

If ( ISIOE.EQ.2)GO TO 8 
SLOPE= SLU! J ) 

CO=ABS(ATAN(SLQPE) ) 

CO=COS(CO) 

YUN! J)=YUt J)-DELS/CO 

PRINT 10,X(J),YU(J),YUN(J),EM(J) , DEL S » TH T, SEPR , HH , P I I . 
1 IND, TAU 

10 FORMA7'{9F10.5 ,I lO.FlO .5) 
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IFCSEPMK.EQ. 1 )GO TO 205 
IF(SEPR.GT.SP)LSEP=J 
IFCLSEP.NE. ITE )SEPMK= 1 
205 CONTINUE 
GO TO 9 

8 SLOPE=SLC(J) 

CO=ABS I ATAN( slope; ) 

CO=COS«CO) 

YLN( j;=YL( j;+DELS/CO 

PRINT 10.X(J),YL(J),YLN( J) ,EM< J) .DEL S , THT , SEPR , HH ,P I I , 

UNO. TAU 

9 continue 

IF( J.EQ.ieOS; GO TO 200 

SEPR=SEP 

HH=H 

200 CONTINUE 

SEPR=- SEPR+2 . *SEP 

HH=HS( ITE-1 ) +(DSSI ITE I /OSS ( ITE-1 ) >♦( HS( ITE-1 I-HS( ITE-2) ) 

HS(ITE»=HH 

DELS=HH*THET2 

DEL( ITE)=D£LS 

IF (DEL I ITE).GT.0.1»DEL(ITE)=0.1 
IF(ISIO£.EQ.2)GO TO 201 
SL0PE=SLU(ITE) 

co=abscatan(slope; ; 

co=cQs (co; 

YUN< ITE)=YU( ITE)-DELS/C0 

PRINT10»X( ITE) .YU(ITE) .YUN{ ITEJ.EM(ITE). DELS-. THET2 , SEPR.HH.PI I. 
UNO. TAU 
GO TO 202 

201 SLOPE=SLL( I TE) 
co=ABS(ATAN( slope; ; 

CO=COS«CQ) 

YLN( I TE)-YL( ITE)*DELS/CO 

PRINT 10,X( ITE) ,YL( ITE; , YLNI ITE) ,EM( ITE) , DELS , THET2 , SEPR . HH,P 1 1 . 
lIND.TAU 

202 IF( ISIDE.EQ.2 )GO TO 203 
EMSTH=EM( ITE) 

HSTR=HH 

TSTR=THET2 
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00001108 
00001 109 
00001110 
00001 111 
00001112 
00001 113 
00001114 
00001115 
00001116 
00001117 


•vl 


4 ^ 

00 


DO 170 J=ILE,IBDS 

170 IF<DEL« J + 1 ) .LT .DEL( J ) )OEL( J + l J=DEL( J ) 

203 CONTINUE 

IF( ISIOE.EQ. 1 )GQ TO 2200 
J = ILE 
2180 J=J+1 

IF(OELi([ J+U .LT.DELl JJ }GO TO 2185 
IF ( J .L I. leOS) GO TO 2180 
GO TO 2200 

2185 IF(X( J).GT,XPC)GO TO 2190 
DELI J+n = DEL( J) 

GO TO 2180 
2190 J=J+1 

IF(DEL( J+1 ) .GT.OEL< J) ) DEL ( J+1 »=DEL( J ) 

IF{ J.LT. IBDSJ GO TO 2190 
2200 CONTINUE 
I SMOTH=2 

IF( IMAX.GT.55) ISM0TH=4 
DO 171 JJ=l,ISMOTH 
QLD=DEL( ILE) 

ILEP2=lLE+2 

DO 171 J=ILEP2tITE 

NEW=DEL( J-1 ) 

DEL( J- 1 )=.25*(OLD+NEW+NEW+DEL( J ) ) 

171 0LD=NE1« 

FAC=-DSS{ ITE)/DSS( I TE- 1 ) 

DEL( ITE>=FAC*DEL( ITE-2)+< 1 .-FAC)*OEL( ITE-1 ) 

PRINT 1'80 

180 FORMAT4* X YOLD YNEW DELSTAR*) 

DO 172 J=ILEPltIBDS 
SLOPE=SLU< J ) 

IF(ISIOE.EQ.21 SLOPED SLLl J) 

CO=ABS«ATAN( SLOPE) ) 

CO^COSltCO) 

IF{ ISIOE.EQ. 2)GO TO 173 

YUN( J) =YUt J)-DEL(J)/CC 

PRINT 174,XIJ) ,YU( J). YUN( JJ .DELI J) 

GO TO 172 

173 YLN( J)=YL( J)+DEL( JJ/CO 

PRINT 174 ,X( J» , YL< J) . YLN ( J ) , DELI J ) 


00001118 
00001119 
00001 120 
00001121 
00001 122 
00001123 
00001 124 
00001 125 
00001 126 
00001127 
00001 128 
00001 129 
00001 130 
00001131 
00001 132 
00001 133 
00001 134 
00001135 
00001136 
OOOOl 137 
00001 138 
00001 139 
00001140 
00001 141 
00001 142 
OOOOl 143 
00001 144 
00001145 
00001 146 
OOOOl 147 
00001 148 
00001 149 
00001 150 
00001 151 
00001 152 
00001153 
00001 154 
00001 155 
OOOOl 156 
00001157 



174 FOHMAT([4F10.5> 

172 CONTINUE 

SLOPE=SLU(ITE» 

IF<IS10E.EQ.2)SL0PE=SLL( ITE) 

CC=ABS'IATAN( SLOPE) ) 

CO=COSCCQ) 

IFUSIOE.EQ-2)GO TO 175 

YUN( ITE)=YU(1 TE)-DEL( ITE)/CO 

PRINT 174,X( ITE) ,YU( I TE) .YUN( ITE) tOEL( ITE) 

GO TO 204 

175 YLN( ITE)=YL( ITE) +DEL( ITE )/C0 

PRINT 174,X(ITe)*YL(ITE).YLN(ITE).DELIITE) 

204 IF{ ISIDE.lt. 2)GO TO 1000 

HBT=(HSTR+1 . )/( l.+.178*EMSTR**2)-l. 
hBB=(HH+l .)/( l.+.178*EM( ITE)**2)-1. 

CDF=TSTR*(USTR**{2.5^- .5*HBT ) ) +THET2*(UE( I TE ) * * ( 2 . 5+ . 5*HBB ) ) 

CDF=2.*CDF 

PRINT 3010, CDF 

3010 FORMATIIHO,' CDF = '.F10.6) 

IF(X(LSEP) .GE.XSEP)GQ TO 3011 
PRINT 3012,X(LSEP) 

3012 FORMATHH ,• UPPER SURFACE SEPARATION DETECTED AT •.F10.5) 
RETURN 

3011 PRINT 3013, XSEP 

3013 FORMATtlH .'NO UPPER SURFACE SEPARATION BEFORE* , F 1 0 . 5 ) 
RETURN 


noooi 158 
00001159 

00001 160 
00001161 
00001 162 
00001163 
00001 164 
00001 165 
00001 166 
00001 167 
00001 166 
00001 169 
00001 170 
00001 171 
00001172 
00001 173 
00001174 
00001 175 
00001 176 
00001177 
00001 178 
00001179 
00001180 
00001181 
00001 182 
00001 183 


END 


00001 184 


-p. 


U3 



cn 

o 


SUBROUTINE VALUE 


C 

C 

C 


*****^** 


THIS DETERMINES THE INITIAL SOLUTION 


REAL M 

COMMON CPUI99 ) ,CPL(99 
1 ,FF( 99) ,FFP12(99 ) ,FFM 
1 PIC 99) ,P2<99) ,PB(99) t 
2),X(99J,Y(99) .YUC99J, 
3Al ,A2, AI2.ALP .CIR.EPS 
4W,Xl.X2fVVJB,VVJBl,AA 
5tQ,QQ.UUJBl,PI,PI2,A2 
COMMON I . I TE» ITEl t ILE 
IJMAXt J CON, UMAX 1 ,NSSP, 
CCMMON/f IPUT/IREAD 
INITIALIZES VALUES 
IF( IREAD.EQ.O >GO TO 3 
DO 4 J J=1 , JMAX 
J = JMAX-J J + 1 
HEAD 5. (PC I , J ) , 1 = 1 , IM 
5 FORMATCSE15.7) 

4 CONTINUE 

READS, (PBC I ) , 1=1 , IMAX 
RETURN 
3 CONTINUE 

DO 1 1=1, IMAX 

PB( I )=0.0 
DO 1 J=1,JMAX 
1 P(I,J)=0.0 
RETURN 
END 


) ,E ( 99) ,OUl (99) ,DU2C99), DLl ( 99 
12( 99) ,FFM1 (99) .FFM32C99 ) , 
P(99,99) ,RS(99) ,S(99) .SUP (99) , 
YL( 99 ) . SLU( 99), SLL( 99 ) , 

, EPSS ,DE,DS , DP,DPM,F,FP12,FM1 2 
JBl , AAJB,QQJB,QQJB1 ,UUJB,VVjaP 
2 ,A 1 1 , X4,S4 

. ILEl ,11,111, ICON, IMAX, IMAX 1 , I 
I W 


AX) 


00001 185 
00001 186 
00001187 
00001 188 
00001189 
) .OL2(99) ,0(99)00001 190 
00001 191 
SUB (99) .TEMP (99 00 001 192 
00001193 
, FM 32. M. 01,012, 00001 194 
1 .OOJBPl .AAJBPlOOOOl 195 
00001 196 
NV, JB, JA 1 . JBl. 00001197 
00001 198 
00001199 
00001200 
00001201 
00001202 
00001203 
00001204 
00001205 
00001206 
00001207 
00001208 
00001209 
00001210 
00001211 
00001212 
00001213 
00001214 
00001215 



SUBROUTINE SOLVE(JL.JU) 


C 

c 

e 

c 


ti******:ti* 


THIS subroutine SETS UP THE COEFFICIENTS USED 
RELAXATION SOLUTION *♦*♦♦♦***♦ 


<ji 


00001216 
00001217 
IN THE ***♦*00001218 
00001219 
00001220 

REAL MaML 00001221 

COMMON CPU(99) ,CPL( 99) ,E ( 99) ,DU1 { 99) . DU2 ( 99 ) ,DL1 (99 ) ,DL2(99 ) ,0(99)00001222 
1,FF(99 J,FFP12(99) ,FFM 12(99) ,FFM1 ( 99) ,FFM32(99) . 00001223 

IPK99) ,P2(99) ,PB(99) ,P (99,99) , RS( 99) ,S< 99) ,SUP(9 9) , SUB! 99) , TEMP ( 990000 1 224 
2),X( 99 ) , YC99) , YU(99) , YL( 99 ) , SLU( 99) . SLL(99) . 00001225 

3A1 ,A2, AI2.ALP ,CIR,EPS , EPSS , DE, DS , DP , DPM , F ,FPl 2 , FM 1 2 ,FM32 , M , Q I ,012,00001226 
4I«,X1,X2,VVJB,VVJB1 ,AA JBl , A A JB , QQ JB, QQ JBl ,UUJB, VV JBPl , QQ JBP 1 , A A J BP 1 0000 1 227 
5,Q*QQ,UUJB1,PI,PI2.A22,A11,X4,S4 00001228 

COMMON I . ITE, ITEl , ILE, ILEl ,11,11 1, ICON. I MAX, IMAXl , I N V, JB , JA 1 , JB 1 , 00001229 
1JMAX,J00N,JMAX1 .NSSP. IW 00001230 

CCMMON/ADAM/VJB, VJBl , VJBPl 00001231 

COMMONAJS/GG(99) ,GGP12(99) ,GGM12(99) , GGM32 ( 99 ) , GGP32. ( 99 ) , A3 00001232 

0ST2=2.*DS 00001233 

DET2=2.*DE 00001234 

DEOE=DE*DE 00001235 

DSDS=DS*DS 00001236 

DSOE=DS*DE 00001237 

FOS=F/DS 00001238 

DO 3 J=JL,JU 00001239 

1F< I .NE.ILEDGO to 300 00001240 

IF( J.NE.JB-DGO TO 300 00001241 

hLD=P( ILE , JB) 00001242 

P( ILE . JB)=PB( ILE) 00001243 

300 CONTINUE 00001244 

G=GG(J) 00001245 

GP12=GGP12( J) 00001246 

GM12=GGM12( J) 00001247 

GDE=G/DE 00001248 

U=QI*(COS(ALP)+F*(P(I+l,J)-Pl(J) )/(2.*DSn 00001249 

V=QI*( SIN( ALP)+G*IP( I ,J+1)-P( I , J-1 )) /(2,*DE) ) 00001250 

IFdW.EQ.OlGO TO 6 00001251 

IF(J.EQ.JB) V=V-QI*(G*(CIR/(2.*DE) )) 00001252 

IF(J.EQ.JB-1)V=V-QI*(G*<C1R/(2.*DE)) ) 00001253 

6 CONTINUE 00001254 

UU=U*U 00001255 


vv=v*v 

Q=SQRTCUU+VV) 

QQ=Q*Q 

AA=A 12-0 . 2*1 UU + VV-QI 2 ) 

IF(AA.LT«0«0)PRINT 11. I. J 
1 FORMAT {.• AA.LT.0.0 I = *.I5," J = '.IS) 

IF(AA.LT.O.O)GO TO 21 

IF( I W .EQ» 0) GO TO 7 

IF( J.NE. JB.ANO- J.NE.JB-l )G0 TO 9 

IF( J.EQ. JB-1 > GO TO 8 

VVJB=VV 

V J0=V 

AAJB=AA 

QQJB=QQ 

UUJ8=UU 

GO TQ 7 

8 VVJB1=VV 
VJB1=V 
AAJB1=AA 
QQJB 1=QQ 
UUJB1=UU 
GO TO 7 

0 VVJBPl^VV 
V JBP 1= V 
QQJBPl-QQ 
AAJBP1=AA 
GO TQ 7 

9 IF( J.EQ. JB+1 JGO TO 10 
7 CONTINUE 

ML=( UU+VV J/AA 
IF<ML.GT. I.OIGO TO 4 
SUBSONIC POINT 
FAV=1 .0*(FP12+FM12) 

FPF=0. 5*F*FAV 

SUB( J- n = < 1 .-VV/AA)*GOE*GM 12/DE 

D( J)=-2 .*( 1 .-UU/AAJ*FPF/OSDS/»l-( 1 .-VV/AA) ♦G*! GPl 2 + GM 1 2 J /DEDE 
1-EPS*FDS#U/Q+FM12/DS 
SUP( J)=( 1 .-VV/AA )*GDE*GP12/DE 

RSI J) = ( 1 .-UU/AA) ♦F* (-FP1 2/DSDS*PI I +1 . J ) +F AV/DSDS* ( 1 .-1 ./W) 
1*P( I . JI-FM12/DSDS*P( I-l. J) )+U*V/AA*FDS*GDE*0.5*(P( I-l , J-1 ) 


00001256 
00001257 
00001258 
00001259 
00001260 
00001 261 
00001262 
00001263 
00001264 
00001265 
00001266 
00001267 
00001268 
00001269 
00001270 
00001271 
00001272 
00001273 
00001274 
00001275 
00001276 
00001277 
00001278 
00001279 
00001280 
00001281 
00001282 
00001283 
00001284 
00001285 
00001286 
00001287 
00001268 
00001289 
00001290 
00001291 
00001292 
00001293 
00001294 
00001295 



o ri 


2-P( I-l , J+IJ-PC I+l, J-1 )+P{ I +1 , J+1 ) ) 

RS( J) = RS( JJ+EPS*FDS*< U/Q*FM 1 2* {-P ( I , J)-P ( I -1 , J ) +P1 IJ J )/DS) 

IF( V.LE.O .0 JGO TO 200 

SUB( J-1) = SUB( J-1 )+EPS*FDS*V/Q*GM12/DE 
D( J) =DIJ )-EPS*FDS*V/Q*GM12/DE 

RS( J)=RS< J)+EPS+FDS*V/Q*GM12/DE*(P(I , J-1 )-P| I , J) j 
GO TO 3 

20 0 SUP'i J) =SUF( J)-EPS*FDS*V/Q*GP12/DE 
D( J)=Df J ) +EPS*FDS*V/Q*GP 12/DE 

RS< J)=RS( J)+EPS*FOS*V/Q*GP12/DE*tP{ I , J)-PCI. J+i ) ) 

GO TO 3 

DAMPING COEFF IS EPSS AT SUPERSONIC POINTS 
SUPERSONIC CASE. V GT 0 

4 GM32=GGM32( J) 

NSSP=NSSP+1 
GP32=GGP32{ J) 

IF(V.LT.O.O)GO TO 5 

SUB( J- 1 )=UU/QQ*GDE*GM12/DE+EPSS*FDS*V/Q*GM12/DE 
D< J)=- VV/QQ*FDS*FM12/DS-UU/QQ*GDE4<GP12+GM12) /DE-EPSS*FDS* 
1(U/Q*FM12/DSFV/Q4GMI2/0E ) 

SUP( J) =UU/QQ*GOE*GP12/DE 

RSI J ) = -{ 1 .-QQ/AA )*(UU/QQ*F DS*(FM12*(P( I , J)-P1 { J ) )-FM32* (PI ( J )- 
1P2IJ ) ) J/DS+2.4U*V/QQ*F*G<=( P{ I , J)-P1( J )-PC I,J-l)+Pl(J-l} )/DSDE 
2 + VV/QQ*G4(GM12*{P( I ,J)-P( I ,J-1 ))-GM324(P( I , J- 1 > -P ( I , J-2 ) ) ) / 

3DEDE) 

RSI J)=RS( J)-VV/QQ*F*( FP12* (PI I+l.J)-P(I,J»)+FM12*PII-l,Jl )/OSDS 
1 + U*V/QG*F*G*(P( I-1.J-1)-P(I-1,J+1 )-P( I + l , J-1 )+P( I + l , J + n )/DSD£ 
2*0.5 

3+EPSS*F*(U/Q*FM12*(-PI I. J) -PI I-l , J) + P1 1 J ) J /D SDS+ V/Q*GMI 2*1 P I I , J- 
4-PI I , J ) )/DSD£) 

GO TO 3 

C SUPERSONIC CASE V LT 0 

5 SUBI J- U = UU/QQ*G D£*GM12/DE 

D(J»=-VV/QQ*F DS*FM12/DS-UU/QQ*G OE* I GMl 2+GPl 2 ) /DE-EPSS*F DS* 

II U/Q*FM12/DS-V/Q*GP12/DE) 

SUPI J)=UU/QQ*GOE*GP 12/DE-EPS S*FDS*V/Q*GP 12/DE 

RSIJI=-I I .-QQ/AA)*(UU/QQ*F DS*IFM12*(P(I.J)-P1(J))-FM32*IP1IJ)- 
1P2I J) ) a/DS+2.*U*V/QQ*F*G*(-P( I . J ) +P1 I J ) +P( I . J+ 1 ) -P 1 ( J+ 1 ) J /DSDE 
2+VV/QU*G*IGP12*lPI I , J )-P( I ,J+1 ) )-6P32*(P( I . JFl )-P( I , J+2I ) )/ 

_3DEDE) 


00001296 
00001297 
00001298 
00001299 
00001300 
00001301 
00,001302 
00001303 
00001304 
00001305 
00001306 
00001307 
00001308 
00001309 
00001310 
0000131 1 
00001312 
00001313 
00001314 
00001315 
00001316 
00001317 
00001318 
00001319 
00001320 
00001321 
00001322 
00001323 
1 } 00001324 
00001325 
00001326 
00001327 
00001328 
00001329 
00001330 
, 00001331 
00001332 
00001333 
00001334 
00001335 


cn 

CO 


n n 


tn 

-P* 


RS( JJ=HS( J)-VV/QQ*F*<FPX2*(P(I+1 .J)-P(I. J) )+FM12*P( I- I ,J))/DSDS 

1 + U*Vy'QQ*F*G* t PI I - 1 . J- 1)-P ( I- 1 « J+ I )~P< I+1»J-1)<-P(I+1»J + U )/OSDE 
1*0.5 

2 + EPSS*F*( U/Q*FM1 2*<-P< I.J)-P(I-l.Jl + PKJi) /D5DS+V/Q*GP12*( PI I . J J- 
3P{I . J+ 1) J/DSDE) 

iF< I .NE. ILEl )GQ TO 3 
IF(J.NE.JB-1)G0 TO 3 
P( ILE. JB)=HLD 
3 CONTINUE 
RETURN 

2i DO 18 JJ=1,JMAX 
J=JMAX+1-JJ 
PRINT 19, J 

19 FQRMATHH ,'ROW «,I5) 

PRINT 20, (P( I , JJ , 1=1 . IMAX) 

20 FORMAT* IH ,10E11.3> 

18 CONTINUE 

PRINT 19, JB 

PRINT 20.*PB( I ) , I = 1.IMAX) 

STOP 

END 


00001336 

00001337 

00001338 

00001339 

00001340 

00001341 

00001342 

00001343 

00001344 

00001345 

00001346 

00001347 

00001348 

00001349 

00001350 

00001351 

00001352 

00001 353 

00001354 

00001 355 

00001356 




SUBROUTINE PRESS 00001357 

00001358 

******** this COMPUTES THE CP DISTRIBUTION ON THE AIRFOIL *♦*♦*♦* 0000 1 359 

00001360 

real M 00001361 

COMMON CPU (99 ) ,CPL(99 ) ,E(99) ,0U1 (99) .DU2(99) , DL 1 1 99 ) , DL2 ( 991 , D ( 99) 00001 362 
1 ,FF( 99) ,FFP12(99 ) ,FFM12( 99 1 ,FFM1 (99) .FFM32I99 ) , 00001363 

IPl ( 99) ,P2( 99) .PB (99) ,P (99 ,99 ) ,RS(99) ,S(99 > ,SUP( 99) *,SUB199) , TEMP { 9900001 364 
2) ,X(99# , Y( 99) . YU(99) , YL( 99) ,SLU( 99), SLL(99) , . * 00001365 

3A1 ,A2. A12 ,ALP,CIR,EPS ,EPSS,DE,DS ,DP, DPM , F , FP 1 2 , FMl 2*FM32, M, Q1 .012*00001366 
4W,X1,X2,VVJB,VVJB1,AAJB1,AAJB,QQJB,QQJB1 ,UUJB , ,'VJBPI , QQJBPl , A A J BP 1 00001 367 
5 , Q, QQ , UU JBl ,PI ,PI2,A22,A11 ,X4, S4 00001368 

COMMON 1 , ITE, ITEl, ILE , ILEl ,11,111 , ICON, 1 MAX , I M *X t • INV * JB , JA 1 • JBl » 00001369 
1 UMAX , J CON , J MAX 1 , NSSP ,IW 00001 370 

COMMON/F I X/MH ALF Q0001371 



COMMON ANA SH/RN, I BDLY, I TACT , YUQRI G< 99 ) ,YLORIG{9 »). SUPPER (99 ) 
1(99) .DEL C 99) ,DUP0LD(99) , DLW0CD(99 ) .CDF 
COMPUTES CP ON AIRFOIL 
IP«M=0 

IFdTAGT.EQ. 1 ) IPRM=1 

19 1PRM=IPRM+1 
IEND=I MAX 1 
JB2= JB-2 

DO 1 I=ILE,IEND 
TEMP2=YU( I ) 

IF( I .GT, I TE) YU( I )=0.0001 
DO 2 J=JB2,JMAX1 

IF(YU( 1 ).GT.E( J) .AND. YU( I ) .LE.E( J + 1) )GO TO 3 

2 CONTINUE 

3 JA=J+1 

IF( JA.LE. JB ) JA=JBF1 
F=FF ( I ) 

IF(IPRM.EQ.2)G0 TO 20 
IF( I .GT.(ILE+U )GO TO 15 

20 U=0.0 

U=QI *( COS( ALP)+F*( (P( 1+1 . JA-1 )-P( I-l ,JA-1))/(2.*DS)+(YU(I)- 
n+(P( I+l . JA )-P( I + l . JA-1)-P( I-l .JA»+P( I-l .JA-1 ) >/(2.*DS*DE) ) 
GO TO 16 

15 CONTINUE 

U USING BACKWARD DIFFERENCE ON PHIX 

U=QI*(COS(ALP)+F*( (3.*P( I . JA-1 )-4.*P ( I-l . JA-l ) +P( 1-2. JA-IJ ) 
1)+(YU( I)-E(JA-l) 

1 )*<P( I +1 . JA)-P( I + l . JA- n-P( I-l . JA)+P( I-l . JA-1 ) )/(2.*OS*DE > ) 

16 CONTINUE 
UU=U*U 

GB=All/( 1 .+TAN(PI2*YU(I) )#*2) 

)0 V=QI*( SIN( ALPI+GB*( (-3 .*P( I . JA-1 )+4.*P(I.JA)-P(I,JA+l))/(2. 

1+(YU( I l-EtJA-lJ )*(P(I . JA-1 )-2.*P { I, JA)+P( I . JA+l ) )/(DE*42) ) ) 
)1 VV=V*V 

YUd » = TEMP2 

1 CPU( I ) = ( 1 ./(0.7*M*M> ) *( ( l.+0.2*M*M*( I .-( UU+VV ) /Q I 2 » ) **3.5-1 
1TE1=I TE+1 
DO 4 i=lLEl , IMAX 
TEMP1=PB( I ) 

PBd ) = P( I « JB) 


. SLOWER00001372 
00001373 
00001374 
00001375 
00001376 
00001377 
00001378 
00001379 
00001380 
00001381 
00001382 
00001383 
00001384 
00001385 
00001386 
00001387 
00001388 
00001389 
00001390 
00001391 
E( JA-1 >00001392 
) 00001393 

00001394 
00001395 
00001396 
/( 2. *0500001397 
00001398 
) 00001399 

00001400 
00001401 
00001402 
*DE) 00001403 
00001404 
00001405 
00001406 
.) 00001407 

00001408 
00001409 
00001410 
00001411 


1 









4 

P ( I, JB)=TEMP1 

00001412 




JB2=JB+2 

00001413 


CJ1 

o> 


00 5 I=ILE,I£N0 

00001414 




TEMP2= YC( I ) 

00001415 




IF< I .GT.ITE) VL( I )=-0. 0 00 1 

00001416 




DO 6 JJ=1.JB 

00001417 




J=JB2- JJ 

00001418 




IF{ Yi_( E) .GE.E( J) .AND. YL{ I ) .LT.E( J + 1) JGO TO 7 

00001419 



6 

CONTINUE 

00001420 



7 

JA=J 

00001421 


1 


IF< JA.GE. JB) JA=JB-1 

00001422 




F=FF ( I ) 

00001423 




IF( IPRM.EQ.21G0 TO 21 

00001424 




IF<I .GT.( ILE+l ) )GO TO 17 

00001425 



21 

U=0.0 

00001426 




U-QI*(COS(ALP)+F*( <P( I+l , JA+1 )-P( I-l , JA+l ) > ✓ ( 2. *DS ) + I YL ( I ) -E ( J A + 1 ) 00001427 




1J4(P(I+1,JA+1J-P{I+1.JA)-P{I-1.JA+1)+P(I-1,JA) )/ (2.*DS*DE) ) ) 

00001428 




GO TO 18 

00001429 



17 

CONTINUE 

00001430 



C 

U USING BACKWARDS OIFFERNCE SCHEME ON PHIX 

00001431 




U=QI *< COS( ALP) +F*( ( 3. ♦PI I . JA+l )-4.4P( I-l . JA+ 1 ) +P ( 1-2, JA + l ) )/■( 2. 

♦DS00001432 




1 ) + (YU< I)-E( JA + l ) 

00001433 




U*(P( I+l . JA+l )-P( I+l , JA)-P( I-l . JA+l) +P( I-l ,JA) )/(2 .*DS*DE) ) ) 

00001434 



18 

CONTINUE 

00001435 




UU=U*U 

00001,436 




GB=All/( 1 .+TANI YL{ I )*PI2)**2) 

00001437 


1 

102 

V=QI *{ SIN( ALP)+GB*( <3 .*P( 1 . JA+l )-4.*P( I , JA)+P( I , JA-1 ) )/(2.*DE )+ 

00001438 




l(yL(I.)-E(JA + l))*{P(I,JA+l)-2.*PII,JA)+P(I.JA-l) ) / (DE**2) ) ) 

00001439 



10^3 

vv=v*v 

00001440 




YL( I )=TEMP2 

00001441 


* 

5 

CPL( I )=( 1 ./I0.7*M*M) ) ♦( ( l.+0.2*M*M*( 1 .- ( UU+V V ) /Q I 2 ) ) **3 . 5- 1 . > 

00001442 




DO 8 I=ILE1 ,1MAX 

00001 443 


, 


TEMP1 = PB< I J 

00001444 

' 



PB( I J = P( I ,JB) 

00001445 



a 

P( I, JB»=TEMP1 

00001446 




IFIITACT.EQ.l IRETURN 

00001447 



1 1 

IFI IPRM.EQ. 1 JPRINT 200 

00001448 



200 

FORMATiUH ,»CP BY BACKWARD DIFFERENCES') 

00001449 




IF(IPRM.EQ.2)PRINT 201 

00001450 


- 

201 

FORMATS IH ,'CP BY CENTRAL DIFFERENCES') 

00001451 





PRINT 12 

12 PORMAT CIH , • X • , 1 OX , • CPU* . 1 OX . • CPL • ) 

PRINT 13, (X (I » .CPU! 1) ,CPL{ I ) , I = I LE, I MAX 1 ) 

13 FORMATiUH .3F10.3) 

IF( IPRM.LT.2)GO TO 19 
RETURN 

END 


00001452 

00001453 

00001454 

00001455 

00001456 

00001457 

00001458 


SUBROUTINE FLOWl 


C 

c 

c 




SOLVES FLOW IN FRONT OF THE AIRFOIL 


tn 


REAL M 

COMMON CPUI991 ,CPL'«99 
1 .FFI 99J ,FFPI2(99 J ,FFM 
1PK99) ,P2<99) ,PB<99) , 
2),X<99),Y(99) .YU(991, 
3A1 ,A2, AI2.ALP,CIR,EPS 
4W.Xl«X2,VVJB,VVJBIfAA 
5,Q,QQ,UUJB1 .P1.P12.A2 
COMMON I . ITE,ITE1 ,ILE 
1 UMAX, J CON, UMAX 1 ,NSSP. 
RELAXES FLOW IN FRONT 
NSSP=0 
ISTAR=2 

IFIM.LT- 1 .0 )G0 TO 1 

ISTAR=3 

DO 2 J-1 , UMAX 

Pl( J)=P<2,J) 

2 P2( J)=P( 1 ,J) 

1 CONTINUE 
AI=1 117.0 
AI2=AI4*2 
QI=M*A1 
0I2=QI **2 

DO 1000 I=ISTAR,ILE1 
F=FF ( I i 
FP12=FFP12( I ) 


00001459 
00001460 
00001461 
00001462 
00001463 

) ,E(99) ,DU1 (99) ,DU2(99) ,DL1 (99) ,DL2(99) ,0(99)00001464 
12(99), FFM1( 99) ,FFM32(99 ) , 000 01465 
P (99,99 ) ,RS(99) ,S(99) , SUP (99) , SUB (99) .TEMP (9900001 466 
YL( 99) ,SLU( 99). SLL(99) , 00001467 
,EPSS,DE,DS ,DP,DPM,F,FP12,FM12,FM32,M,QI ,012,00001468 
JBl ,AAJB,QQJB,QQJB1 .UUJB.VVJBPl .QQJBPl . A A J BPl 0000 1 469 


2, All ,X4,S4 

.ILEl.Il.Ill . ICON. 1 MAX, IHAX1,INV,JB,JA1,JBI. 
IW 

OF AIRFOIL 


00001470 

00001471 

00001472 

00001473 

00001474 

00001475 

00001476 

00001477 

00001478 

00001479 

00001480 

.00001481 

00001482 

00001483 

00001484 

00001485 

00001486 

00001487 

00001488 


FM12=FFM12( I ) 

FM32=FFM32< I ) 

g CALL S0LVEC2. JMAXl) 

RS(2J = RS( 2)-SUB( 1 )*P( I ,1 ) 

RS(JMAXl)=HS(JMAXl|-SUP(JMAXn*P<I,JMAX) 
CALL TRID(2. JMAXl) 

DO 6 J=2. JMAXl 
DP=ABS4;P< I , J)-RS( J) ) 

IF(DP.GT,DPM) ICON=I 
IF(OP.GT.DPM) JCCK=J 
IF(DP.GT.DPM) DPM=OP 
P2( J)=P1 ( J) 

P1CJ)=P(1,J) 

6 P(I, J)=fRS(J) 

P2( 1 )=P 1 { 1 ) 

P2( JMAX)=P1 UMAX) 

PI ( 1 ) = P( I . 1 ) 

Pl( JMAX)=P( I ,JMAX) 

1000 CONTINUE 
RETURN 
END 


00001489 

00001490 

00001491 

00001492 

00001493 

00001494 

00001495 

00001496 

00001497 

00001498 

00001499 

00001500 

00001501 

00001502 

00001503 

00001504 

00001505 

00001506 

00001507 

00001508 

00001509 


c 

C 

c 


SUBROUTINE COORD 
*#♦«*«♦* SETS UP COORD 

REAL M 

COMMON CPU(99 ) ,CPL(99 ) 
1,FF(99),FFP12(99) ,FFM1 
1P1I99) ,P2(99) ,PB(99) ,P 
2» ,X( 99 ) , Y( 99) , YU(99) , Y 
3A1.A2. AI2.ALP.C1R.EPS, 
4W,X1«X2.VVJB,VVJB1.AAJ 
5fQ«QQ<4JUJBl.Pl»P12.A2 2 
COMMON I , I TE, ITEl , ILE» 
1 JM AX, J CON, JMAXl ,NSSP, I 
CGMMON/FI X/MHALF 
COMMON/JS/GG(99 ) ,GGP1 2 


00001510 
0000151 1 

INATES IN COMPUTATIONAL AND PHYSICAL GRIDS *00001512 

00001513 

00001514 

,DU2(99) ,DL1 (99) ,DL2(99) ,D( 99 >00001515 
,FFM32I99), 00001516 

.S(99» , SUP (99) , SUB 199), TEMP (990000 151 7 
SLL(99), 00001518 

0PM,F,FP12,FM12.FM32.M,QI ,QI2, 00001519 
OJBl ,UUJB, VV JBPl . QQJBPl .AAJBPl 00001 520 

00001521 

ON, 1 MAX, I MAX 1,INV,JB,.JA1,JB1. 


,E ( 99 ) ,DU1 ( 99) 
2(99) ,FFM1 (99) 
(99,99) ,RS(99) 
L(99),SLU( 99), 
EPSS ,DE,DS ,DP, ( 
B1 , AAJB,QQ JB,Q( 
,A 1 1 ,X4. S4 
ILEl ,11,11 1 ,1C( 
W 


(99) ,GGM12(99) ,GGM32(99) , GGP32 ( 99 ) , A3 


00001522 

00001523 

00001524 

00001525 





DE=2.0/( JMAX-l ) ' 

IF( INV.EQ.OiGO TO 999 
READ 997,Xi,X2 
997 F0RMAT<2F10.5) 

999 CONTINUE 

DS=2.*il.+S4J/( IMAX-1 ) 

C THIS PROGRAM DEPENDS UPON TRANSFORMATION USED 

S(U=-I.0-SA 
E(l|=-1.0 
S( IMAX»-1 .0+SA 
E( JMAX )=1 .0 
IMAXl=IMAX-l 
JMAX1= JMAX-1 
00 2 1=2. IMAXl 

2 S(tI)=SCI-l)+DS 

S3=-S4*0.5*DS-0.01 
DO 11 1=1. IMAXl 

IF(S3.GE.S( I ) .AND.S3.LT.S( I+l ) )G0 TO 12 

11 CONTINUE 

12 13=1*1 
131=13-1 
IM=IMAX/2+l 
I4=IMAX-I31 
141=14+1 

DO 13 1=2.131 

13 X( I )=-X4+A2*TAN{ PI 2* ( SI I )*S4 )J +A 3*TAN{ P I 2* t S I I ) + S4) **3) 
TERM1= l.5*X4/S4-.25*PI*A2 

TERM2=< .5*PI*A2*S4-X4)/( 2. *S4**3 ) 

DO 14 L=I3.I4 

14 X(i )=S( I J*( TERM! +TERM2+S ( I )**2) 

DO 16 1=141 . IMAXl 

16 X( I )=X4 + A2*TAN(P I2*(S{ IJ-S4 ) ) *A3 *TAN I P I 2* I S C I )-S4) **3 ) 
DO 3 J=2.JMAX1 
E( J)=Ed J-1 )+D£ 

3 Y( J)=A1*TAN(PI2*E{ J) ) 

PRINT 4 

4 FORMAT([//.25X*'X-Y GRID SYSTEM*.//) 

PRINT 5, (1 .XI I.) .1=2. IMAXl ) 

5 FOHMATH 6(15. E12. 4)) 

PRINT 5. I J. VIJ) . J=2, JMAX 1 ) 


00001526 
00001527 
00001 528 
00001529 
00001530 
00001531 
00001532 
00001533 
00001 534 
00001535 
00001536 
00001537 
00001538 
00001539 
00001540 
00001541 
00001542 
00001543 
00001544 
00001545 
00001546 
00001547 
00001548 
00001549 
00001550 
00001551 
00001552 
00001553 
00001554 
00001555 
00001556 
00001557 
00001558 
00001559 
00001560 
00001561 
00001562 
00001563 
00001564 
00001565 


VO 


CT> 

O 


9 

1 0 


la 


DO 7 1 - 2 , IMAXl 

IFtXl .GE.X( I ) .AND.Xl .LT.X( 1+1 ) )GQ TO 8 
CONTINUE 
11=1+1 
SLE=-0 .5 
DO 9 1=2, IMAXl 

IF(Sl-E.GE.X(n.AND.SLE.LE.X( I + l) )GO TO 10 

CONTINUE 

ILE=I+1 

QUANl=S(2)+54 

FF(2>= PI2+A2*( l.+TAN(PI2*QUANl 3 *<=2 ) + 1 . 5 *A3* ( I 

1 )**2 )♦ ( QUAN1**2) *PI 
FF(2J=1./FF(2) 

QUANI=S(2 »+0.5*DS + S4 

FFP121 2 ) = PI2*A2*< 1 . + T AN< P I 2*QUAN I »**23 + 1.5*A3*(l 
1 )**23*{QUAN14*2)*PI 
FFP12(2)=1./FFP12(2) 

QUAN1=S(2)-0.5*DS+S4 

FFMl 2t 2 3 = P1 2*A2*( 1 . + T AN( P I 24QU AN 1 1*4 2 ) + 1 . 5 *A 3 * ( 1 
1 )**2 )4IQUAN1*42J*PI 
FFM12I 2)=1./FFM12(2) 

FFM1(2»=0.0 
DO 18 1=3,131 

QUAN1=S( I » + S4 

FF(I)= PI24A2*I1.+TAN(PI2*QUAN1»**2)+1.5*A3*(1 
1 )**2 )*(QUAN14*2J4PI 
FF| I )= l./FF ( I ) 

QUAN1=S( I )+0.5*DS+S4 

FFPl 2(1 3=PI 2*A2* ( 1 , + TAN( PI2*QUANl)**2) + l ,5*A3*( 1 
1 )*+2)4(QUANl*42)4PI 
FFP.12( 13=1. /FFPl 2( I 3 
FFM12( I ) = FFP12( I-l 3 
FFMl ( I 3=FF( I-l ) 

FFM32J I 3 =FFM12< I-l 3 

FFPl 2 ( L31 3=1 , /( TERMl +3 ,*TERM2*< S ( 131 3 +0.5 4DS3 **2 
IM1=IM-1 
DO 19 1=13, IM 

FF( I 3 = 1 ,/CTERMl +3.4TERM2*S( I 3 4*2 3 

FFP12< L3= 1 ./( TERM1+3.4TERM24( S( I 3 +0.54DS3 442 3 

FFM12I I3=FFP12( I-l 3 


00001566 

00001567 

00001568 

00001569 

00001570 

00001571 

00001572 

00001573 

00001574 

00001575 

,+TAN( PI24QUAN144300001576 

00001577 

00001578 

00001579 

.+TAN{PI24QUAN144300001580 

00001581 

00001582 

00001583 

,+T AN (PI24QU AN 1443000 01 584 

00001585 

00001586 

00001587 

00001588 

00001589 

,+TAN{ P I 24QUAN1 44300001 590 

00001591 

00001592 

00001593 

.+ T AN ( PI 24QUAN 144300 001 594 

00001595 

00001596 

00001597 

00001598 

00001599 

3 00001600 

00001601 

00001602 

00001603 

00001604 

00001605 





FFMl i I )=FF{ I- 1 ) 

19 FFM32( 1 ) = FFM12< I-I ) 

FFP12C IM)=FFM12( IMJ 
DO 800 11=2. IMl 
1=1MAX-1 I+l 
FF{I)=FF{ II ) 

FFP12I I1=FFM12< ID 
FFM12( I ) = FFP12< I I ) 

FFMl ( I )=FFI I I + l ) 
aOO FFM32( I)=FFP12< II+l) 

GGP321 2)=Al 1^C0S(PI2* (E( 3) +0.5*DE))**2 

GG(2)=AI1*C0S(PI2*E(2) )**2 

GGP12I 2)=A1 l*COStPI2* (E( 2) +0.5*DE I )**2 

GGM12t 2)=A1 l*COS.(PI2*(£( 2) -0 .5*DEJ )**2 

GGM32I 2)=0. 0 

DO 801 J=3.JMAX1 

IF( J.EQ. JMAX13GO TO 804 

GGP32( J)=A1 l*COS(PI2* <E( J ) +1 . 5*DE ) )♦ *2 
804 GG( J)=A11*C0S(P12*E(J)>**2 

GGP12( J)=A1 1*C0SIP12*<E( J ) +0.5*DE) )**2 
GGM12I J1=GGP12( J-1 ) 

801 GGM32( J1=GGM12( J-1 ) 

GGP32I JMAXl )=0.0 

RETURN 

END 


SUBROUTINE FL0W3 00001631 

00001632 

4c«**«*4c** SOLVES Fom IN THE INVERSE REGION 00001633 

00001634 

REAL M 00001635 

COMMON CPU(99 ) , CPL( 99 ) .E ( 99) «0U1 (99).0U2(99) . DL 1 ( 99 ) . OL2C 99} . 0 ( 99) 0000 1 636 
1 .FF( 99i,FFP12I99) ,FFM12( 99) .FFMl (99) .FFM32(99) . 00001637 

1PK99) .P2(99) ,PB(99) , P<99 ,99 ) , RS ( 99 ) , S (99 ) , SUP ( 99) .SUB199) . TEMP( 9900001 638 
2 ) . X( 99 > , Y ( 99 ) . YU ( 99 ) . YL( 99 ) . SLU( 99 ) . SLL ( 99 ) . 00001 639 

3A1 .A2.A1 2 , ALP. Cl R, EPS. EPSS ,DE. OS. DP. DPM.F.FPl 2. FM 12. FM32.M.QI ,012.00001640 
4W.XI .X2. VVJB. VVJ81 .AAJBl . A A JB , 00 JB .QQJBl .UUJ B. VV JBP 1 . OOJBPl , A AJ BPl 0000 1 641 
5.0,00. UUJBl .PI. PI2.A22.A1 1 ,X4,S4 00001642 



'00001606 
00001607 
00001608 
00001609 
00001610 
0000161 1 
00001612 
00001613 
00001614 
00001615 
00001616 
00001617 
00001618 
00001619 
00001620 
00001621 
00001622 
00001623 
00001624 
00001625 
00001626 
00001627 
00001628 
00001629 
00001630 



a> 

ro 


CCMMON I , ITE. ITEl .ILE. ILEl .11.111. ICON. I MAX. IMAXl . IN V . JB . JA 1 . JB 1 . 00001643 
UMAX. J CON. JMAXl .NSSP. IW 00001644 

CCMM0N/BAKER/TEMP3.TEMP4 00001645 

COMMON/DELTA/ITER 00001646 

COMMON/F I X/MHALF 00001647 

: RELAXES FLOW IN INVERSE REGION 00001648 

JA=JAI 00001649 

IS=Il-2 00001650 

DO 14 I=IS.IMAX 00001651 

14 TEMPI I )=P( I . JB-1 ) 00001652 

DO 3000 1=11. IMAXl 00001653 

IFIXI I ) .GE.X2 )GO TO 3100 00001654 

; flow above airfoil ooooiess 

JB2=JB-2 00001656 

DO 3 J=iJB2. JMAXl 00001657 

IFIYUI I ).GT.E(J) .ANO.YUI I) .LE.EIJ+l) )GO TO 4 00001658 

3 CONTINUE 00001659 

4 JA=J+1 00001660 

IF( JA.LE. JB) JA=JB+1 00001661 

F=FF(I1) 00001662 

FP12=FFP12( I ) 00001663 

FM12 = FFM1 21 I ) 00001664 

FMUFFMIII) 00001665 

FM32=FFM32( I I 00001666 

CB=A1 l/( 1 .+TAN( YUI I )*PI2)**2) 00001667 

VV=SLUtI)**2 00001668 

UU=1.0 00001669 

40 0 0 DUl I I > =-COS( ALP) +I(1./(1. + VV/UU))*(1.-(11 . +0 . 7*M*M*CPU t I ))♦♦ 0.28 00001 670 
16-1. )*5./(M*M)) )**0.5-F*( (-4.4PK JA-D+P2C JA-l))/(2.*DS)) 00001671 

2-F4I YUI I )-EI JA-1 ) )W(P( I+l. JA)-P( I+l . JA-1 ) -PI IJA J +P 1 (J A- 1 ) )/(2. 00001672 

3*OS*DE) 00001673 

Dull I )=DU1 ( I )/(F*( 1 .5/DS ) ) 00001674 

4001 CONTINUE 00001675 

DU2I n=-P(I.JA) + 2.0*DUl( 1) 00001676 

PI I . JA-1 )=DU1 ( I ) 00001677 

PII* JA-2)=DU2UI 00001678 

CALL SCLVEI JA, JMAXl ) 00001679 

RSI JA)=RS( JA)-SUB(JA-1 )*PI I , JA-1 > 00001680 

RSIJMAX1)=RSIJMAX1)-SUP( JMAX1)*PI I . JMAX) 00001681 

JCALL TRIDI JA, JMAXl ) J)0001682 



DO 1 J=JA,JMAXl 
DP=ABS<P( 1. J}-RSf J) ) 

IF(OP.GT.OPM) ICON=I 
IF(DP«GT.DPM) JCQN=J 
lFiOP.GT.DPM)OPM=OP 
P2< J) = P1C J) 

PU J) = P(I tJ) 

1 P<I.J)=RS{J) 

JAMl=JA-l 
DO 2 J=JB,JAM1 
P2( J )=P1 ( J) 

2 PHJI=P(I,J) 

VV=SLUtI )**2 
UU=1 .0 

4002 DUH n=-cas{ ALP) +< < 1 ./U . + VV/UU) ) *( 
16-1, )*5./(M*M) ) )**0.5-F*( (-4.*P( I-l 
2-F41 yut I )-E( JA-1 ) )*(Pt 1 + 1 . JAJ-P( I+l 
3(2,*OS*DE) 

DUl ( I ) =DU1 ( I )/(F*< 1 .5/DS) ) 

4003 CONriNUE 

DU2( I ) =-P( I,JA) + 2.0*DU1( I) 

P(I, JA-1)=0U1< I) 

P(I, JA-2)=DU2( I ) 

P2(JMAX)=P1( JMAX) 

PHJMAX) = P(I.JMAX) 

JA1=JA 

3000 CONTINUE 

3100 JA=JB1 

DO 5 1=IS,1MAX 
P(I, JB-1)=TEMP(I ) 

TEMPI I l=P( I , JB+1 ) 

TEMP1=PB< I ) 

PBl I )=P(I ,JB) 

5 PU, JBI)=TEMP1 

6 TEMPl=TEMP4 
TEMP4=P1 I JB) 

PU JB)=TEMP1 
TEMPl=tlEMP3 
TEMP3=P2( JB) 

P2( JB)=TEMP1 


00001683 

00001664 

00001685 

00001686 

00001687 

00001688 

00001689 

00001690 

00001691 

00001692 

00001693 

00001694 

00001695 

00001696 

,-U 1 .+0. 7*M*M*CPU( I ) )**0 .28000 01697 

JA-1 >+P( 1-2, JA-1 ) )/(2,*DS) ) 00001698 

JA-1)-P( I-l, JA)+PU-1. JA-1 J )/ 00001699 

00001700 
00001701 
00001702 
00001703 
00001704 
00001705 
00001 706 
00001707 
00001708 
00001709 
00001710 
0000171 1 
00001712 
00001713 
00001714 
0000171.5 
00001716 
00001717 
00001718 
00001719 
00001 720 
00001721 
00001722 


o> 

CO 



CT> 

-P> 


DO 3500 1=11, IMAXl 
C FLOW BELOW AIRFOIL 

IFf X( 1 I .GE.X2 tea TO 3600 
JB2= JB+2 
DO 10 3J=1,JB 
J=JB2- JJ 

IF( YLf 1 ) .GE.E ( J ) .AND. YL( I ) .LT.Et J+1 ) )GO TO 11 

10 CONTINUE 

11 JA=J 

1F( JA.GE. JBJ JA=JB-1 
F=FF< I } 

FP12=FFP12( I } 

FM12=FFM12( I ) 

FM1=FFM1 { I ) 

FM32=FFM32( I ) 

GB=A1 iy( 1 .+TANI YLt I )*PI2)**2) 

VV=SLL( I )*+2 

uu=l .0 

40 04 OLl ( I ) =-COSI ALP) +'( ( 1 ./( 1 . + VV/UU) )♦( 1 .-{ ( 1 . +0 . 74M*M*CPL ( I 
16-1 . )*5./(M*Mf) ) )+*0.5-F* I <-4.*Pl ( JA+ 1)+P2(JA + 1))/(2.*DS) 
2-F*( YLI I )-E( JA+1 J )*(P{ I+l , JA+1 )-P< I+l , JA)-P1 ( JA+1) FPl ( JA 
3*DS*DE ) 

DLK n=OH( I»/(F + ( 1.5/CS) ) 

4005 CONTINUE 

DL2I I )=2.<‘DL1 ( I )-P( I, J A) 

P(I. JA+1)=DL1( I) 

P { I, JA*2)=DL2( I ) 

CALL SQLVE(2,JA) 

RS(2)=RS(2)-SUB( 1)*P( I ,1 ) 

RSI JA)=RS( JA)-SUPIJA) ♦PI I , JA+ 1 ) 

CALL TRI0I2.JA) 

DO 7 J=2,JA 
DP=ABS«P( I , J)-RS( J) ) 

IFIDP.LE.DPMIGO TO 8 

ICQN=I 

JC0N=J 

DPM=DP 

8 P2tJ)=Pl(J) 

P1(J)=P( I .J) 

7 P(I,J)=RSIJ) 


00001723 
00001724 
00001725 
00001726 
00001727 
00001728 
00001729 
00001730 
00001731 
00001732 
00001733 
00001 734 
00001735 
00001736 
00001737 
00001738 
00001739 
00001740 
) )^^0. 2800001741 
) 00001742 

))/I2. 00001743 

00001744 
00001745 
00001 746 
00001747 
00001748 
00001749 
00001750 
00001751 
00001 752 
00001753 
00001754 
00001755 
00001756 
00001757 
00001758 
00001759 
00001760 
00001761 
00001762 






JAM1=J A+l 

00001763 


DO 9 J=JAM1 , J0 

00001764 


P2( J)=P1( J) 

00001765 


9 P1(J) = PU.J) 

00001766 


VV=S1_HIJ**2 

00001767 


c 

c 

II 

• 

o 

00001768 


40 0 6 DLl ( I )=-C0S( ALP) +< t 1 ./< 1 . + VV/UU) ) .-( < 1 . +0 . 7»M*M*CPL ( I } ) .2600 0 01 769 


16-1 . )*5./lM*M) ) )*»0.5-F*( (-4.*P( I-l , JA+1 )+P( 1-2, JA+11 )/(2.*DS > ) 

00001770 


2-F*( YL( I )-E( JA+1)J*(P(I+1,JA+1)-P{H-1,JA)-P( I-l, JA+1 )+P( I-l , JA> )/ 

00001771 


3(2.*DS*DE) 

00001772 


DLl ( I )=DL1 (1 )/lF*( 1 .5/DS ) ) 

00001773 


4007 CONTINUE 

00001774 


DL2( I 1=2. *001 ( I J-P( I , JA) 

00001775 


P< I. JA+n=DLl ( I ) 

00001776 


P( I. JA+23=DL2( I ) 

00001 777 


P2( 1 )=P1 ( 1 ) 

00001778 


P111)=P(I,1) 

00001779 


JB1= JA 

00001780 


3500 CONTINUE 

00001781 


3600 DO 12 L=IS,IMAX 

00001782 


P< I . JB + 1 )=TEMP( I 1 

00001783 


TEMP1 = PBI I ) 

00001784 


P8( I )=P( I , JBl 

00001785 


12 P< I, JB »=TEMP1 

00001786 


PH JB) =TEMP4 

00001787 


P2( JB)=TEMP3 

00001788 


RETURN 

00001789 


END 

00001790 


cn 




I 



I 


SUBROUTINE FLQW2 


<Ti 

(Ti 


C 

c 

c 




SOLVES FLOW IN THE ORI ECT REGION ♦*♦♦♦♦ 


000017«", 
000017% 
0000179ii 
00001794 

REAL M 00001795 

COMMON CPU(99 ) ,CPL<99 ) ,E(99» .DU1(99J ,OU2t 99) ,DL1 (991 ,DL2{ 99) .D( 99)00 001796 
1 ,FF( 99 J ,FFP12(99 ) iFFM12{99) .FFMl (99) ,FFM32{99) . 00001797 

IPl ( 99 ) ,P2(99) ,PB(99) ,P(99.99 ) , RS{99) , S(99) . SUP 1 99) . SUB(99) > TE MP ( 990000 1 798 
2) ,X( 99»«Y(99) ,YU(99) , YL( 99 ) . SLU( 99) , SLL( 99 ) . 00001799 

3A1 . A2, AI2 . ALP,CI R,EPS , EPSS ,OE, DS . DP . DPM. F . FP 1 2 . FM 1 2 , FM32, M, Q1 < Q 1 2* O 0001 800 
4W,X1 ,X2» VVJB. VVJ81 ,AA JBl , A A JB , QQ J8 .QQ JBl , UU JB , VV JBPl . QQJBPl , A A J BPl 0 000 1 801 
5«Q«QQ>UUJB1 fPI,P12.A22.All .X4.S4 00001802 

CCMMON I .ITE, ITEl* ILE , ILEl . I 1. I 1 1 , IC ON, 1 MAX, I MAX 1 , I NV , JB , J A 1 , J B1 , 00001803 
UMAX. J CON, J MAXI .NSSP. IW 00 001804 

C CMMON/lB AKER/TEMP 3, TE MP4 00001805 

RELAXES FLOW ABOVE AND BELOW AIRFOIL 00001806 

JB=JMAX/2+l 00001807 

JB1=JB-1 00001808 

JA1=JB+1 00001809 

JB2=JB-2 00001810 

TEMP5=P1(JB) 00001811 

TEMP6=P2(JB) 00001812 

CO 12 I=ILE,I1 00001813 

12 TEMPI 1 )-P( I , JB-1 ) 00001814 

IF( ILE.GT.I 11 )GO TO 20C1 00001815 

DO 2000 I=ILE.I11 00001816 

FLOW ABOVE AIRFOIL 00001817 

F-FF(IJ 00001818 

FP12=FFP12( I ) 00001819 

FM12=FFM1 2( I ) 00001820 

FM32=FFM32( I ) 00001821 

GB=A1 I/'(1. + TAN(PI2*YU(I) )**2) 00001822 

DO 1 J=JB2.JMAX1 00001823 

IF(YU( I) .GT.E( J) .AND. YU( I ) .LE.EI J + 1 ) )GO TO 2 00001824 

1 CONTINUE 00001825 

2 JA=J+1 00001826 

IF( JA.LE. JB) JA=JB+1 00001827 

DUl C I ) =SLU ( I ) *(COS( ALP ) +F*( ( P( 1+ 1 , JA-1 )-Pl ( JA-1 ) )2( 2.*DS) 00001828 

1+(YU( I )-E( JA-1 ))*(P(I+1, JA)-P( I+l , JA-1 )-Pl (JA) +P1 { JA-1 )) /I 2.WDS+DE 0000 1829 

_2) ) )-SI N( ALP )-GB*((4.*P(I,JA )-P( I,JAFl))/(2.*DE)-#-(YU(I)-E(JA-l)J4 000 01830 




3(-2.*P< I . JA)+P( I , JA+1 3 )/(DE^*2) ) 

00001831 


DUK n=DUl( X)/{-l «5*GB/DE + < YU ( I ) -E( J A- 1 ) ) / { DE**2 ) *GB ) 

00001832 


DU2( I)=-P( I . JA3+DUK 11*2.0 

00001833 


P(I.JA-l)=OUUI) 

00001834 


PI I. JA-21=DU2( 11 

00001835 


CALL SOLVE! JA.JMAXll 

00001836 


nS( JA»=RS< JA1-SUB( JA- 1 1*P{ I , JA-l 1 

00001837 


HS( JMAXl 1=RS( JMAXl 1-SUP< JMAXl 1 *P( I, JMAXl 

00001838 


CALL TRIOX JA. JMAXl 1 

00001839 


DO 4 J=JA, JMAXl 

00001840 


DP-ABS'«P( I . J)-RS ( J1 1 

00001841 


IFOP.GT.DPMl ICON=I 

00001842 


IF(DP .GT.DPMl JCQN=J 

00001843 


IF(DP.GT.DPM1DPM=DP 

00001844 


P2( J1=P1( J1 

00001845 


Pl( J1 = PU . J) 

00001846 

4 

P( I , Ji=RS( J1 

00001847 


JAM1=J A-1 

00001848 


DO 5 J=JB,JAM1 

00001849 


P2( J1=P1( J1 

00001850 

5 

Pl( J3 = PU .J1 

00001851 


P2( JMAX1=P1 ( JMAX 1 

00001852 


Pl( JMAX)=P( I. JMAXl 

00001853 


JA1=JA 

00001854 


DUK II=SLU(I 1*(C0S(ALP1+F*( (P( I+l . JA-1 1-P( I-l , JA- 1 1 1/(2,*DS1 

00001855 


l+( YUl I 1-EC JA-1 11*(P(I+1.JA1-P1H-1 , JA-1 1-PX I-l . JAl+Pl I-l , JA- 1 1 1/ 

00001856 


2(2.*DS*DE11 1-SIN( ALP1-GB*( (4.*P( I,JA)-P( I , JA+ 1 1 1 /( 2 . *DE1 + 

00001857 


31 YU( I l-EI JA-1 n*(-2.*P{I.JAl+P(I, JA+ 1 ) l/tOE**21 1 

00001858 


DUK I1=0U1 ( I l/I-l .5*GB/0E+( YU( I 1-E< JA-1 1 1 / ( DE **2 1 *GB 1 

00001659 


DU2( I >=-P( I.JA1+DU1(I1*2.0 

00001860 


P(I« JA-11=0U1< 11 

00001861 


PI I , JA-21=DU2( 13 

00001662 

2000 

CONTINUE 

00001863 

200 1 

CONTINUE 

00001864 


TEMP3=P2I J83 

00001865 


TEMP4=P1C JBl 

00001866 

C 

FLOW BELOW AIRFOIL 

00001 867 


DO 8 I = 1LE> 1 1 

00001868 


PII, J8-ll=TEMP(I 1 

00001669 


TEMPII 3=P( I, JB+1 ) 

00001870 


CTl 

00 


TEMP1=PB( I ) 

PB( I )=P< 1 , JBJ 
P( I . JBJ=TEMP1 
8 CONTINUE 

Pl< JB)=TEMP5 

F2< JBJ=TEMP6 

IFdLE.GT.I IDGO TO 2501 

DO 2500 I=ILE. I 1 1 

GB=All/( 1 .+TAN(P I2*YL ( I) J**2) 

F=FF{ I ) 

FP12=FFP1 2( I ) 

FM12=FFM12( I J 
FM32-FFM32( U 
DO 6 J3=ltJMAXl 
J=JB-J J+2 

IF(YL( J).GE.E( J) .AND.YL(I) .LT,E( J + 1) )GO TO 7 

6 CONTINUE 

7 JA=J 

IF( JA . GE. JB) JA=JB-1 

DLU n=SLLU )*(C0S(ALP» +F# ( ( P( 1+ 1 , JA+1 )-P 1 ( J A + 1) ) / { 2 . *05 ) + 


0000187' 
00001872 
00001873 
00001 87A 
00001875 
00001876 
00001877 
00001878 
00001879 
00001880 
00001881 
00001882 
00001883 
00001884 
00001885 
00001886 
00001887 
00001888 
00001889 
00001890 


l(YL(I>-EIJAi-l) )*(P(I + l,JA+l )-P( I+1,JA)-P1(JA+1)+P1(JA))/(2.*DS*DE >00001 89 1 
2) J-SIN,<ALP)-GB*( <-4.*P ( I , JA)+P( I . JA- 1 ))/<2.*DE) + (YLtI »-E( JA + 1 >1* 00001892 

3(-2.*PCI.JA)+P(I.JA-l))/(DE4*2>) 00001893 

OLK I )=DLl( !)/.( 1 .5*GB/DE+( YL( I )-E(JA + l) )/( DE**2 ) *GB ) 0 00 01894 

DL2( n=2. + DLl ( I )-P< I t JA» 0 00 01895 

P< I , JA-ei > =DL1 ( I ) 00001896 

P( I , JA+2> =DL2( n 00001897 

CALL SOLVE<2tJA) 00001898 

RS(2)=RS(2)-SUB< U *P ( I , 1 ) 00001899 

RSIJA)=RS( JA)-SUP( JA) ♦PI I, JA+1) 00001900 

CALL TR1D'(2.JA» 00001901 

DO 9 J=2.JA 00001902 

DP=ABSCP( I . J)-RS< J) ) 00001903 

IFIDP.GT .DPM) ICCN=I 00001904 


IF(DP.GT.DPM) JCON=J 
IF(DP.GT.DPMJDPM-DP 
P2f J)=P1( J) 

PI I J) = P(I . J) 

9 P(I.J)=RS<J) 

J AMI =J A+ 1 


00001905 
00001906 
00001907 
00001 908 
00001909 
00001910 



DO 10 J=JAM1.JB 
P2{J1=PI( J) 

10 Pl( J)=P(I . J) 

P2(i)=pi( n 
pi< 1 )=p(i , 1 ) 

JB1= JA 

OLU I )=SLL( I >*( COS( ALP)+F*( (P(I+l,JA+l)-PCI-l.JA+l))/(2.*DS)+ 

1 ( YL( I )-El JA+1 )l*(P(I+l,JA+l)-P(I+l,JA)-Pl I-l , JA+l)+P( I-l , JA) )/(2. 
2*DS*DE» ) )-SIN< ALP)-GB*( (-4 .#P( I , JAI + P ( I . JA-1 ) )/(2.*DE) + (YL(I )-EC 
3JA+1 ) ) ♦{-2.*P( I ,JA»+P( I, JA-1 ) »/( DE**2) ) 

DLl ( I )=DL1< I )✓( 1 .54GB/DE+ { YL< I )-EC JA + 1 ) » /(DE**2) *GB) 

DL2( I )=2.*DL1 ( I)-P( I , JA) 

P ( I , JA+1 )=DL1 ( I ) 

P( I, JA+2)=OL2( I) 

2500 CONTINUE 

2501 CONTINUE 

DO 11 Ii=ILE,Il 
P( I. JB + 1) = TEMP(I ) 

TEMP1=PB( 1 ) 

PB( I )=P{I , JB) 

11 P(I, JB3=TEMP1 
TEMP1=TEMP4 
TEMP4 = PU JB) 

Pl( JB)=TEMP1 
TEMP1=TEMP3 
TEMP3=P21 JB) 

P2{ JB)=TEWP1 

PE( ILE 1 )=P( ILEl . JB) 

PEULE-2)=P( ILE-2. JB) 

RETURN 

END 


0000191 1 
00001912 
00001913 
00001914 
00001915 
00001916 
00001917 
00001918 
00001919 
00001920 
00001921 
00001922 
00001923 
00001924 
00001925 
00001926 
00001927 
00001928 
00001929 
00001930 
00001931 
00001932 
00001933 
00001934 
00001935 
00001936 
00001937 
00001938 
00001939 
00001940 
00001941 


n n 


SUBRQUT.INE WAKE 


o 


********** 


SOLVES FLOW BEHIND THE AIRFOIL ♦♦♦♦♦* 


00001942 
00001943 
00001944 
00001945 

HEAL M 00001946 

COMMON CPU! 99 ) .CPU <99 ) «E(99) ,OUl ( 99) .0021 99J ,DL1 (99) .OL2(99 ) . D { 99) O 000 1 947 
1 .FF(99 J .FFP12(99) .FFM 12(99) .FFMl (99) .FFM32(99 ) , '00001948 

IPl (99) ,P2(99) ,PB(99) ,P (99 ,99 ) ,RS(99) . S ( 99 ) , SUP ( 99) .SUB (99) . TEMP ( 990000 1 949 
2) ,X( 99 ) , Y(99) , YU(99 ) . YL( 99) , SLU(99). SLL(99) . 00001950 

3A1.A2.AI2.ALP ,CI R .EPS . EPSS . DE. DS .DP. DPM . F.FP 1 2. FM 1 2. FM32 . M , Q I . Q 1 2. 000 01 951 
4W,XliX2,VVJB,VVJBl,AAJBl . A A JB , QQ JB ,QQ J81 « UU JB . VV JBP 1 . QQ JBP 1 . A A JBP 1 0000 1 952 
5.Q ,QQ, UUJBl .PI.P12,A22.A11.X4,S4 00001953 

COMMON I , I TE, I TE 1 . ILE , ILEl , I 1 . I 1 1 . ICON, I MAX, I MAX I . I N V , JB . JA 1 . JB 1 . 00001954 

UMAX, JCQN, JMAXl ,NSSP, IW 000 01955 

CQMMON/ADAM/VJB, VJBl , V JBPl 00001956 

RELAXES FLOW IN WAKE DIRECTLY 00001957 

IW-1 00001958 

DO 4000 I~ITE1,IMAX1 00001959 

F=FF(I® 00001960 

FP12=FFP12( I ) 00001961 

FM12=FFM1 2( I ) 00001962 

FM32=FFM32< I ) 00001963 

CALL SOLVE( 2, JMAXl ) 00001964 

RS(2) = RS( 2)-SUB( 1 )4P( I ,1 ) 000 01965 

RSI JMAXl ) =RS( JMAXl )-SUP( UMAX 1 ) *P ( I ,JMAX) 00001966 

IFIQQJBPl .LE.AAJBPl )G0 TO 1 00001967 

IF< VJBPl .LT.O. )GO TO 1 00001968 

G-Al 1/(1.+TAN(PI2*E(JB+1) )**2) 00001969 

GM32=A1 l/( 1 .+TAN(PI2* ( E( JBFl )-l ,5*DE) )**2) 00001970 

HS( JBF1)=RS( JBF 1 )-( 1 .-QQJBPl/AAJBPl )♦( VVJBP1/QQJBP1*G*GM32*CIR/ 00001971 
1(DE**2)) 00001972 

1 IF(QQJB.LE.AAJB)GO TO 2 00001973 

IF(VJB.LT.0.0)G0 TO 3 00001974 

G=A11/'(1..*-TAN(PI2*E<JB))**2) 000 01975 

GM12=A ll/( l.+TAN(PI2*(E( JB)-0.5*DE) )**2) 00001976 

RS( JB) =RS( JB) +( 1 ,-QQJB/AAJB ) *< V V J B/QQ J B*G*GM 1 2*C IR/ ( DE**2 ) ) 0 00 01977 

1-UUJB/QQJB*G+GM12*CIR/ (OE**2 ) 00001978 

GO TO 4 00001979 

3 G=A1 l/i( 1 .+TAN(P I2*E( JB) )**2) 00001980 

GM12=A11/(1.FTAN(PI2*(E(JB)-0.5*DE)) **2) 00001981 



RS( JB)=RSIJBJ-UUJB/QQJB*G*GM12*CIR/tDE4t*2) 

GO TO 4 

2 G=A1 l/€ l.+TAN(PI2*E( JBJ ) ♦♦2) 

C=( 1 .-VVJB/AAJBJ^G 

GM12 = All/tl .■•■TAN<P12*( E( JBJ-0.5*DE)) **2) 

RS( JB)=RS( JB)-C4GM12*CIR/{0E**2) 

4 IFiQQJBl .GT.AAJBl >GO TO 5 
G=A1 1/C 1 .+TAN{PI2*E( JE-1 ) )** 2 ) 

C=( 1 .-VVJBl/AA JBl )*G 

GP12 = AU/< 1.«-TAN1PI2*(E( J8-1 )+0.5*DE) >**2) 

RS( JB- 1 )=RS< JB-1 )+C*GP12*C IR/( DE**2) 

GO TO 6 

5 IFCVJBl.LT.O.OJGO TO 7 

G=Al l/C l.+TAN(P12*E( J8-1 ) )**2) 

GP12=All/( l.+TAN(PI24«E( JB-1 )+0.5*DE ) )**2) 

RS( JB- 1)=RS( JB-1 )+UUJBl/QQJ81*G*GP12*CIR/C OE+42) 

GO TO 

7 G=All/f l.+TAN(PI2*E( J8-1 J J**2) 

GP12=A 1 l/< 1 .^TAN(PI2*(E( JB-1 )+0.5*DE ) )**2J 

RS< JB-1 )=RS( JB-1 )-( 1 .-QQ JB 1/AAJB 1 J *VV JB 1 /QQ J B l*G*GP I 2 +CIR/1 DE **2 ) 
1+OUJBl /QQ JB1*G*GP12*CIR/ (DE**2 ) 

6 CALL TR1DI2, JMAXl ) 

00 a J=2, JMAXl 
DP=ABS(P( 1 . J)-RS( J) ) 

IFCOP.lt. DPM) GO TO 9 
ICON=I 

JCON=J 

OPM=DP 

9 P2(J)=P1(J1 
PIC J)=P( I . J) 

8 PCI.J1=RS(J3 
P2C 1) = P1C 1) 

P2CJMAX)=P1C JMAX) 

P1C1)=PC1.1) 

• PIC JMAX)=PC 1 , JMAX) 

4000' CONTINUE 

DO 10 1=1TE1.1MAX1 
PECI )=P( I .JB)-CIR 
10 CONTINUE 

_PECILE1)=PC ILEl . JB) 


00001982 
00001983 
00001984 
00001985 
00001986 
00001987 
00001988 
00001989 
00001990 
00001991 
00001992 
00001993 
00001994 
00001995 
00001996 
00001997 
00001998 
00001999 
00002000 
00002001 
00002002 
00002003 
00002004 
00002005 
00002006 
00002007 
00002008 
00002009 
00002010 
0000201 1 
00002012 
00002013 
00002014 
00002015 
00002016 
00002017 
00002018 
00002019 
00002020 
00002021 


r> n 


iw-o 

RETURN 

END 


00002022 

00002023 

00002024 


SUBROUTINE SHAPE 


*♦=►**♦**♦ 


COMPUTES SHAPE OF AIRFOIL IN INVERSE DESIGN CASE*4***4** 


REAL M 

COMMON CPU! 99) ,CPL(99) .E(99) ,0U1 (99) ,DU2(99) ,DL1 (99) ,DL2(99) ,D(99) 
1 ,FF(99) ,FFP12(99) ,FFM12(993 .FFMl (99) ,FFM32(99) , 

IPK993 ,P2(99) ,PB(99) ,P(99,99) tRS(99) tS(99) , SUP (99) . SUB (99 ) . TEMP ( 99 
2) ,X( 99) .Y(99) .YU (99) , YL( 99) , SLU ( 99) . SLL ( 99 ) . 

3A1 , A2. AI2,ALP.CIfl.EPS ,EPSS ,DE, DS . DP , OPM , F , FP 12 , FM 1 2 , FM32 » M , Q I ,Q 12, 
4W ,X1 ,X2, VVJB, VVJBl ,AA JBl , A A J B . QQ JB, QQ JBl , UU JB . VV JSPl . QQJBPl ,A AJBPl 
S.Q.QQ. UUJBl .Pi ,PI2. A22 .A I I . X4. S4 
COMMON 1 . ITE. JTEl , ILE. ILEl . I 1 , I 1 1 • ICON. 1 MAX. 1 MAX 1 . I N V , JB . J A 1 , JB 1 . 

1 JMAX. J CON, J MAXI ,NSSP, IW 
CCMMON/TAMU/DELTAY 
OELTAY=0 . 0 

IFI INV-EQ.O) I l=lLE+2 
IP1=I 1 

DO 1 I=IP1,ITE1 
YOLD=YU( I ) 

JB2=JB-2 

DO 3 J=JB2,JMAX1 

IF(YU( I-1).GT,E( J) .AND,YU( I-l) .LE.E( J + 1) )G0 TO 4 

3 CONTINUE 

4 JA=J+1 
L=I-1 

IFI JA.LE. JB) JA=JB+1 
F=FF(LI 

U=QI ♦( COS < ALP) +F*( tP( I.JA-1)-P(I-2,JA-1) ) / ( 2 . *OS ) + ( YU ( L ) -E ( J A- 1 ) 
1)*(P( I . JA)-P(I , JA-1 )-P( 1-2, JA)+P( I-2.JA-1 ) )/( 2,*DS*DE) ) ) 

GB=All/< 1 . + TANI P I24YU ( I- I ) 1 ** 2 ) 

_V=QI*( SIN( ALP)+GB*( (-3 .*P (L . JA-1 ) +4 . *P( L , J A ) -P ( L •, J A+ 1 ) )/(2.* 


00002025 

00002026 

00002027 

00002028 

00002029 

00002030 

00002031 

00002032 

00002033 

00002034 

00002035 

00002036 

00002037 

00002038 

00002039 

00002040 

00002041 

00002042 

00002043 

00002044 

000020^5 

00002046 

00002047 

00002048 

00002049 

00002050 

00002051 

00002052 

00002053 

00002054 

00002055 

00002056 



lDE) + ( YU<L»-E< JA- 1 ) )*( P(L, JA-n-2.*P(L, JA) +P(L, JA + 1 ) )/(DE**2) ) ) 
FY=( GB/IF) *V/U 
IFd.EQ.inGO TO 14 
SLU{I-1)=V/U 
14 CONTINUE 
FK1 = DS*FY 
YN=YU(l-) + 0.5*FKl 
F=FFM12( I ) 

DO 20 J=JB2,JMAX1 

IFIYN.GT.EI J) .AND.YN.LE.EI J-H) )GO TO 50 

20 CONTINUE 
50 JA=J+1 

IF( JA.LE, JB) JA= ja+1 

U=QI*( COS( ALP) +F*< (P( I .JA-1)-P(I-1, JA-1) )/DS+IYN-E( JA-1 ) )♦ 

1(P{ I . J A)-P( I , JA-1 )-P(L ,JA)+P(L , JA-1 ) )/(OS*DE ) ) ) 

GB=A1 !✓( 1 . + TAN<PI2*YN )**2) 

V=QI*( SIN(ALP)+GB*( (-3.*(P( I .JA-1 )+P (L, JA-1) )+4.*lP(I,JA)+P(L. 

1 JA) )-PI I , JA+1 )-P(L. JA+1 ) )/(4.*DE)+( YN-E( JA-1 ) )*0 .5*(P{ I, JA-1 ) 

2 + P( I-l .JA-1 )-2.*IP(I.JA)+P(L,JAJ ) +P( I- JA + 1 )+PtL, JA+1 ) )/(DE**2) ) ) 
FK2=GB/F*DS*V/U 
YN=YU< L) +0.5+FK2 
DO 21 J=JB2,JMAX1 

IF{ YN. GT. E< J ) . AND. YN.LE. E ( J+ 1 ) ) GO TO 22 

21 CONTINUE 

22 JA=J+1 

IF( JA.LE, JB) JA=JB+1 

U=QI *( COS( ALP) +F*( (P( I , JA-1 )-P{ I-l. JA-1 ) ) /'OS+ ( Y N-E( J A- 1 ) )* 

1(P( I . J A)-P( I . JA-1 )-PIL, JA)+P(L. JA-1 ) )/(DS*DE) ) ) 

GB=All/( l.+TAN(PI2*YN )**2) 

V=Q1*{ 31N( ALP)+GE*I (-3.4(P( I , JA- 1 )+P(L. JA-l) ) +4 . * ( P( I , JA ) +P ( L , 

1 JA# )-P,( I . JA + 1 )-P<L. JA + 1 ) )/(4.*DE ) + (YN-E( JA-1 ) ) *0 . 5* ( P ( 1 , J A- 1 ) 
2+P( I-l .JA-1 )-2.*(P( I , JA)+PIL, JA) )+P( I . JA+1 )+P(L, JA+1 ) )/(DE*42J ) ) 
FK3=GB/’i^*D5*V/U 
YN = YU{ D+FK3 
F=FF( I J 

DO 2 J=JB2,JMAX1 

IF( YN. GT.EI J ) .AND. YN. LE.E( J+1 ) )GO TO 5 
2 CONTINUE 
5 JA=J+1 

IF( JA.LE. JB) JA=JB+1 


00002057 

00002058 

00002059 

00002060 

00002061 

00002062 

00002063 

00002064 

00002065 

00002066 

00002067 

00002068 

00002069 

00002070 

00002071 

00002072 

00002073 

00002074 

00002075 

00002076 

00002077 

00002078 

00002079 

00002080 

00002081 

00002082 

00002083 

00002084 

00002085 

00002086 

00002087 

00002088 

00002089 

00002090 

00002091 

00002092 

00002093 

00002094 

00002095 

00002096 


'-J 

-p» 


U=QI *( COS( ALP)+F*< «P( I + l , JA-n-P( I-X . JA-U ) / ( 2 . *DS ) +1 YN-EC JA-1 ) 
1(P( I+l . JA)-P( I + l , JA-1 )-P( I-l , JA)+P{ I-l, JA-11 ) /(2.*DS«DE1 ) ) 
G6=All/( l.+TAN(PI2*YNJ*+21 

V=QI*( SIN( ALP)+GB*( (-3 .*P( I , JA-l ) +4 . *PC I . J A )-P ( I , JA+1) )/f 2.+DE) 
1 + (YN-E« JA-1 ) ) *(P(I , JA-1 )-2.*P( I . JA)t-P( 1 . JA+1 ) 3/{DE**2) ) ) 
FK4=GBj^F*0S*V/U 

YU( I )=YU( L)+( FKl+2.*FK2+2.*FK3+FK4)/6. 

IFU .GT.ITEIGO TG 1 
CHANGE=ABS( YU( l)-YOLD) 

I F( CHANGE .GT.DELTAY) OELTAY=C MANGE 
1 CONTINUE 

CO 6 I=ILE1 , IMAX 
TEMP1=P( I , JB) 

P( I . JB )=PB( 13 
6 PE( I )=TEMPl 

DO 7 I=IP1 , ITEl 
YOLD=YL( I ) 

JB2= JB+2 
DO a J J=1 , JB 
J-JB2- JJ 

IF( YL( I- 1 ) .GE.E( J» .ANO.YL( I-l ) .LT.E( J + 1 UGO TO 9 

8 CONTINUE 

9 JA=J 

IF( JA.GE. J8)JA=JB-1 
L=I-1 

F =FF ( L ) 

U=QI*l COS( ALP) +F*( (P( I , JA+1) -P( 1-2, JA+1) ) / ( 2 . *DS ) + ( YL ( L ) -E C JA+1 
HP(I,JA+l)-P(I,JA)-P (1-2. JA+1) +P( 1-2, J A) )/( 2 .*DS*DE) ) ) 

GB=A1 1>I< 1 , + TANIP I2*YL (L) )**2) 

V-QI + I SIN(ALP)+GB+( ( 3 , +P ( L , JA+ 1 ) -4.*P (L, JA ) +P (L , JA-1 ) )/(2.*DE) + 
1( YL( L)-E( JA+1 ) )♦( P(L, JA+1 )-2.*P( L, JA ) +P(L, JA-1 ) ) /IDE**2) ) ) 

F Y=GB/F*V/U 
IF( I .EQ.I DGO TO 15 
SLL( I- 1 )=V/U 
15 CONTINUE 
FK1=DS*FY 
YN=YL{ L) +0.5+FK1 
F=FFM1 2( I ) 

DO 25 JJ=1,JB 
J=JB2-JJ 
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IF(YN.GE.E(J) .AND.YN.lt. E( )G0 TO 26 

25 CONTINUE 

26 JA=J 

IF( JA.GE. JB) JA=JB-1 

U=QI*(CQS(ALPI+F*t(P( I.JA+l )-P(L. JA+l) )/DS+(Y 

1- P(I . JA)-P(L. JA+U+P(L, JA) J/{DS*OE)) ) 

GB=A1 1 /( 1 .4-TAN(PI2*VN )**2> 

V=QI*( SIN( ALP)+GB*< ( 3 . * ( P { I . J A+1 )+P(L,JA+l)J- 
1+P( I . JA-1 I+P(L, JA-1 ) ) /( A .*DE)+ ( YN-El JA+l ) ) *(P 

2- 2.*(P(I . JA)+P(L, JA) ) +Pl I , JA-1 )+P(L. JA-l) )*0. 
FK2=GB/F*DS*V/U 

VN=YL(L)+0.5*FK2 
DO 27 JJ=1.JB 
J=JB2- JJ 

IF{YN.GE.E( J) .AND.YN.LT.EC J+1 ) )GO TO 28 

27 CONTINUE 

28 JA=J 

IFJ JA.GE. JBJ JA=JB-1 

U=QI*( CQSI ALP) +F*( tP( I . JA+ I )-P(L , JA+l) l/DS+l Y 

1- P( I . JA)-P(L. JA+l )+P(L, JA) )/(OS*DE) ) ) 

GB=A1 !✓.{ 1 .+TAN(PI2*YN )**2) 

V=QI*( SIN(ALP)+GB*( ( 3 . *( P ( I , J A+ 1 )+P(L, JA+l) )- 
1 +Pt I , JA-l 3+P(L, JA-1 ) ) /( A. *D£) +< YN-E( JA + l ) 3 *( P 

2- 2.*(P( I. JA)+P(L, JA) ) +P( I , JA-1 )+P(L, JA-1 ) )*0. 
FK3=GB/F*DS*V/U 

YN=YL(L)+FK3 
F=FF ( I J 
DO 10 JJ=1,JB 
J=JB2- JJ 

IF! YN. GE.E( J) . AND. YN.LT.El J+1 ) )G0 TO ll 

10 CONTINUE 

11 JA=J 

IF( JA.GE. J8> JA=JB-1 

U=Q I* ( COSCALP) +F*{ tPC I+1,JA+1)-Pl I-l . JA+ 1 ) )/( 
1(P( I+l ,JA+1 )-PC I +1. JA)-P( I-l , JA+l )+PC I-l . JA) ) 
GB=A11X( l.+TAN(PI2*YN ) **2) 

V=QI*< SIN(ALP)*GB*« (3.*P( I . JA+ 1 ) -4.*P C I . JA ) +P 
1 ( YN-EC JA+l 3 )*IPH,JA+1)-2.*PII.JA)+P(I.JA-1)) 
FK4=GBy»=^*DS*V/U 

YLCI )=YLCL)+(FK1 +2 . *F K2+2 . 4FK3+FK4 )/6 . 


N-E(JA+l) )*(P( I.JA+l 


4.*{P(I, JA)+P(L, JA)) 
( I . JA+l ) +P(L. JA+l ) 
5/CDE4+2) )) 


N-ElJA+l))4(Pl I.JA+l 


4.*(P{I, JA)+P(L, JA)) 
( I . JA+l ) +PCL, JA+l ) 
5/lOE**2) ) ) 


2.*OS) + ( YN-El JA+l ) )« 
/(2.*DS*DE) ) ) 

(I, JA-1 ) )/(2.*DE)+ 
/IDE442) ) ) 
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00002142 
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IF( I .GT.ITE )GO TO 7 
CHANG£=ABS( YL( I )-YGLD ) 
IF(CHANGE.GT,OELTAY)DELTAY=CHANGE 
CONTINUE 

DO 12 i;=ILEl . IMAX 
TEMP1=P{ I . JB) 

P ( I . JB)=PB( I ) 

PE« I J=TEMP1 

RETURN 

END 

SUBROUTINE TRIDIIL.IH) 




TRIOIAGONAC EQUATION SOLVER ******* 


REAL M 

COMMON CPU(99 ) ,CPL«99 J ,E (99) ,OUl (99) ,DU2( 99) ,DL1 (99) , DL2(99) , 
1 .FF( 99 ) ,FFP 12(99 ) t FFM 1 2 ( 99 ) . FF M 1 ( 99 ) .FFM32(99 ) . 

IPl (99) ,P2(99) ,PB(99) ,P(99,99) ,RS(99) ,S(99) , SUP (99) ,SUB(99) ,TE 
2),X(99|.Y(99),YU(99),YL(99) .SLU( 99) . SLL( 99 ) . 

3A1 ,A2, AI2,ALP,CIR.EPS,EPSS,DE.DS.DP. DPM,F,FP12,FM12,FM32.M,QI 
AW,X1,X2,VVJBjVVJB 1,AAJB1 , AAJB,QQJB,QQJ81 .UUJB, VV JBPl , QQJBPI , A 
5«Q.QQ.UUJB1,PI«P12.A22,A11.X4,S4 
COMMON I,ITE,lTEl.ILEiILEl.Il*Il 1 .ICON, IMAX, IMAX I , I N V , JB , JA 1 , 
1 UMAX . JCON, JMAXl ,NSSP, IW 
N=IH 
NN=N— 1 

SUP( IL»=SUP( IL)/D( ID 
RS(IL)=RS( IL)/D( ID 
IDUM=IL+l 
DO 10 L=IDUM,N 
I I=L-1 

D(L)=DJL)-SUP(I I J*SUB (II) 

IF(L.EQ,N)GO TO 10 
SUP( L)=SUP(L) /0(D 

10 RS(L) = (RS(L)-SUB( I I ) * RS ( I I ) ) /D ( L ) 

DO 20 K-1L,NN 
L=N-K+IL-1 

20 RS(L) = RS(L)-SUP(D*RS(L+1 ) 

RETURN 

END 
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00002189 
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00002191 
D( 99) 00002192 
00002193 
MP(9900002194 
00002195 
,QI2, 00002196 
AJBP100002197 
00002198 
JBl, 00002199 
00002200 
00002201 
00002202 
00002203 
00002204 
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SUBROUTINE HALVE 




THIS SUBROUTINE HALVES THE GRID SPACING ETC. 




00002217 
00002218 
00002219 
00002220 

REAL M 00002221 

COMMON CPU (99) ,CPL(99) .E ( 99 ) .DUl ( 99) .OU2(99) .DLl (99) «OL2(99) .0(99)00002222 
1 , FF( 99 ). FFP12(99) *FFM 12(99 ) .FFMl (99) ,FFM32(99) . 00002223 

1PK99) ,P2(99) ,PB(99) ,P(99.99) ,RS(99) .S(99) .SUP (99) .SUB (99) . TE MP ( 99000 02224 
2) ,X<99) . Y(99) . YU(99) , YL( 99 ) . SLU ( 99 ) . SLL ( 99 ) . 00002225 

3A1 .A2.AI 2 .ALP.CIR.EPS . EPSS , DE . DS . OP. DPM.F.FPl 2. FM 1 2.FM32 . M . Q I « Q 12 . 00002226 
4MI.X1 .X2.VVJB. VVJBl .AAJBI . A A JB . QQ JB.OQ JB 1 . UU JB , VV JBPl .QQJBPl . AAJBPl 00002227 
S.Q.QQ, UUJBl .PI .P12.A22 ,A 1 1 .X4.S4 00002228 

COMMON I.lTE.ITEI.ILE.ILEl .11.11 1 .ICON. IMAX. I MAX l.INV.JB.JAl.JBl. 00002229 
1 UMAX. JCON. JMAXl .NSSP. IW 00002230 

IMAX=2*IMAX-1 00002231 

JMAX=2*JMAX-1 00002232 

1MAX1=IMAX-1 00002233 

JMAX1=JMAX-1 00002234 

J=JMAXl/2+l 00002235 

JJ=JMAX 00002236 

I I=IMAX 1/2+1 00002237 

II=IMAX 00002238 

I P( 1 1 . J J) = P( I . J) 00002239 

1=1-1 00002240 

11=11-2 00002241 

IF(1.GT.O)GO TO 2 00002242 

J=J-1 00002243 

JJ=JJ-2 00002244 

IF(J.GT.O)GO TO 1 00002245 

DO 3 J=1.JMAX.2 00002246 

OO 3 I=2.IMAX1.2 00002247 

3 P( I . J)=0.5*(P( I + l. J)+P( I-l , J) ) 00002248 

DO 4 1=1. IMAX 00002249 

DO 4 J=2. UMAX 1,2 00002250 

'*■ P( I . J)=0.5*(P( I . J+1)+P(I .J-1 ) ) 00002251 

I=IMAXl/2+l 00002252 

II=IMAX 00002253 

5 PB(II)=PB(I) 00002254 

J=I-1 00002255 

11=11-2 00002256 


IFU.GT.OGO TO 5 00002257 

DO 6 I=2«1MAX1«2 00002258 

6 PB{ I ) = 0.5*(PB< I + n+PB< I- n J 00002259 

RETURN 00002260 

end 00002261 


SUBROUTINE PL OTl NO , A , N , M » NL , NS ) 




THIS CREATES A PLOT OF RESULTS ON THE STANDARD PRINT OUT 


DIMENSION OUT( lOlJ.YPRdlJ ,ANG<9) ,A( 500 ) 
1 FORMAT! IHl »60X,7H CHART ,13.//) 
2F0RMAT«1H ,F I 1 . 4 . 5X , 1 0 1 A 1 ) 

3 FORMATiUH ) 

7 FORMATS IH ,16X,101H. 

I • • • • 


) 


8 FQRMATC 1H0.9X, 1 1F10.3 » 

DATA BLANK/lH / , ANG/ 1 HU . I HL . I HT , 1 HB» I H5, 1 H6 , 1 H7 , 1 H8 , 1 H9/ 
NLL-NL 

IF(NS) 16, 16, 10 

10 DO 15 1=1 ,N 

DO 14 J=I,N 

IF! A! I )-A( J ) ) 14 , 14 , 11 

11 L-I-N 
LL=J-N 

DO 12 K=1 ,M 
L=L + N 
LL=LL+N 
F=A( L) 

A(L)=A((LL) 

12 A(LL)=F 

14 CONTINUE 

15 CONTINUE 

16 IF(NLL) 20, 18, 20 

18 NLL=50 

20 WRITE(6.1)N0 

XSCAL=<[A< N)-A( 1 » )/ (FLOAT (NLL-1 ) ) 

M 1 = N+ 1 
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00002263 

♦*00002264 

00002265 

00002266 

00002267 

00002268 

00002269 
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00002283 
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00002286 

00002287 
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00002289 

00002290 
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00002292 

J)0002293 


YMIN=A{Ml ) 

YMAX=YMIN 

M2=M*N 

DO 40 J=M1,M2 
IF(A( J »-YMIN) 28,26,26 
26 IF(A( J J-YMAX) 40,40.30 
28 YMIN=A|J) 

GO TO 40 
30 YMAX=A<J) 

40 CONTINUE 

YSCAL= C; YMAX-YMIN )/100 ,0 

XB=A( 1 J 

L=1 

MY=M-1 

1=1 

45 F=I-1 

XPR=XB+F*XSCAL 
IF(A(LJ-XPR) 50,50.70 
50 DO 55 IX=1,101 
55 OUT( IX )=BLANK 
DO 60 J=1 ,MY 
LL=L+J*N 

JP=( ( AtLL)-YMIN)/YSCAL)+ 1 . 0 
0UT( JPI=ANG( J» 

60 CONTINUE 

WRITE! 6.2)XPR, (OUTUZi , I Z= 1 , 1 0 1) 

L=L+1 

GOT080 

70 WRITE<6,3} 

80 1=1+1 

IF<I-NLL) 45,84,86 
64 XPR=A<N) 

GO TO 50 
86 WR1TE(6,7) 

YPR( 1)=YMIN 
DO 90 KN=1,9 

90 YPR( KN+1 J =YPR(KN J+YSCAL* 10. 0 
YPR( 1 1 J=YMAX 
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0000231 1 
00002312 
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WRIT E( 6.8 » ( YPR( IPl , IP=1, 1 1 ) 

RETURN 

END 


00002332 
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C 

C 
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SUBROUTINE ARC ( X I , Y I , XQ , YO.SI . SO.XP, YP . 0 1 Y , D2Y , D 3Y , OER I X . DERF X, 
IDEHl Y. DERFY ,NI .NO.INT ) 

DETERMINES THE ARC LENGTH OF THE AIRFOIL POINTS 

DIMENSION XI ( 1 ) .YI ( 1 ) .XO( 1 D ,YO( I ) , SI ( 1 ) , SO ( 1 J . XP ( 1 ) , YP ( 1 ) , D 1 Y ( 1 ), 
ID2Y( n ,D3Y( I ) 

SI - INPUT CHORD LENGTH SO - OUTPUT CHORD LENGTH 

COMPUTE ARC LENGTH SI USING CIRCULAR ARC SEGMENTS 
INT=1 SPLINE XI AND YI VS SI 

EPSl = 1 .E- 10 
N1=NI- 1 
SI ( 1 )=0 . 

H1 = 0. 

0X1 = X1 (2 )-X I { n 

0Y1 = YI (2)-YI ( 1) 

C 1=SQR T( DX1^»2 + DY 1»^2 ) 

SI (2 )=C1 

IFINI .EQ.2)RETUHN 

DO I I=2,N1 

DXl = XIi( U-XI ( I-l ) 

DYl=YIi I J-YI (I-l ) 

DX2=XI ( 1 + 1 )-XI ( I ) 

DY2=YI ( I+l )-YI ( I ) 

0X=XI( I+U-XI ( i-n 

DY=YI ( I+l J-YI { l-l ) 

C2=SQRT(DX2**2+DY2**2 ) 

C=SQRTIDX**2+OY**2) 

A=(0Y1 *DX-DY*DX1 J/2. 

H=4.+A/'(C*C1=«‘C2 ) 

HAV=(Hl+H»/2. 

DS=Cl*<l.+(Cl/2.*HAVJ**2/6. ) 

SKI )=SI ( I-D+DS 

C1=C2 

H1=H 

1 CONTINUE 
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DS=Cl*i 1 .+(Cl/2.*H)**2/6 . ) 

SI< NI ) = SI ( M-1.)+DS 
IF( INT .NE.I ) RETURN 

2 CONTINUE 

C SPLINE XI AS A FUNCTION OF SI 

CAUL SPLINE.ISI ,XI ,SO, XC. XP , 0 1 Y . 0 2 Y, 03 Y. I , 3 .DERI X , DERFX » NI ♦ NO, 0 ) 

3 CONTINUE 

C SPLINE YI AS A FUNCTION OF SI 

CALL SPLI NE( SI . YI , SO, YQ, YP , D 1 Y , D 2 Y , D 3 Y , I . 3 , DE RI Y , DERF Y , NI , NO . 1 ) 

RETURN 

END 
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C 

c 

C 

c 

C 

c 

c 

c 

c 

c 

c 

c 
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SUBROUTINE SPL I NE( X I N , YI N , XOUT , YOUT, DYOX , D 1 Y , D2Y , D3Y , NDEHI ,NDERF, 
IDERI VI .DERI VF ,NI N.NOUT ,I NTERP) 

E B KLUNKER JANUARY 1S73 

COMPUTE A CUBIC SPLINE THROUGH THE SET OF POINTS X IN ( I ) . Y I N ( I ) 


MONOTONIC 

INPUT INDEPENDENT AND DEPENDENT VARIABLES 
OUTPUT INDEPENDENT AND DEPENDENT VARIABLES 
1ST, 2ND, AND 3RD DERIVATIVE AT SPLINE POINTS XIN 
DERIVATIVE AT XOUT 

OUTPUT VALUES 

AT INITIAL SPLINE POINT (1.2, OR 
AT FINAL SPLINE POINT (1.2, OR 3) 
AT INITIAL SPLINE POINT 


NE 

NE 


NUMBER OF INPUT AND 
ORDER OF DERIVATIVE 
ORDER OF DERIVATIVE 
VALUE OF DERIVATIVE 
INTERPOLATE FOR GIVEN VALUES YOUT 
SPLINE COEFFICIENTS ARE NOT RECOMPUTED 


XIN MUST BE 
XIN, YIN 
XOUT, YOUT 
D1Y,D2Y,D3Y 
DYDX 

NIN ,NOUT 
NDERI 
NDERF 
DERI VI 
INTERP 
NTIMES 
OIMENS ION 
103Y( 1 i 

EPSI 1=-1 .E-10 

EPSI2=-EPSI 1 

MM1=NIN-1 
DX=XINt2)-XIN( 1 ) 

1 = 2 

IF(OX.EQ.O. )GO TO 35 
DF=(YIN(2J-YIN(1 1 J/DX 
IF(NDERI-2J 1,2,3 
C=,5 


XIN( 1 ) , YIN( 1 ) , XOUT ( 1 ) ,YOUT( 1 ) ,DYDX( 1 ) ,D1Y( II ,D2Y( 1 ) , 
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00002404 

00002405 
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F=3.*1DF-DERIVI )/DX 

GO TO 4 

2 C = Q. 

F=DERI VI 

GO TO 4 

3 C=-l . 

F=-DX*DER I VI 
FORWARD LOOP OF ' TR 

4 D1Y(1)=-C 

02YC1)=F 

DO 5 I=2.NIM1 
DX1 = XI N( I + l )-XIN( I i 
IF(DX1 .EQ.O. )GO TO 36 
DF1=(YIN(I+1)-YIN(I))/DX1 
B=2. *( DXFOXl ) 

F=6.4( OFl-DF) 

DENOM=BFDX*Dl Y( I-l ) 

D2Y( I )=(F-OX*D2Y( I-l) )/DENOM 

01 Y< I ) =-DXl/DENOM 

DX-DXl 

DF=DF1 

5 CONTINUE 
I =NI N 

IF(NDERF-2)6,7,8 

6 A=.5 

F=-3.+ < DFl-DERI VF) /DXl 

GO TO 9 

7 A=0. 

F=DERI VF 

GO TO 9 

8 A=-l . 

F=DX 1+DERI VF 

9 DENOM= I . + A*D1 Y( I-l ) 

D2Y( 1 )=(F-A*02Y{ I-l ) )/DENOM 
D1Y( I )=0 . 

BACK SUBSTITUTION OF TRIOIAGONAL 
K=N1N 

DO 1 1 I-l ,NIM1 
K = K- 1 

D2Y( K) =D2Y( K )+Dl Y( K)*D2Y { KFl ) 
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MATRIX COMPUTATION 00002443 

00002444 

00002445 

00002446 

00002447 


IDIAGONAL MATRIX COMPUTATION 




10 DX1=XI N< K+l )-XIN( K) 

DFI=(YIN(K+1)-YXN(K))/DX1 

01Y(K+l) = DFl + DXl/6 .♦ I O 2Y 1 K ) + 2. <=D 2Y( K+ 1 ) ) 

03Y( K+n = (D2Y(K+l )-02V (K n/DXl 

11 CONTINUE 

01Y( n=DFl-0Xl/6.*(2.*D2Y( 1)+D2Y(2)) 

D3Y( 1 )=D3Y( 2) 

IF( INTERP.NE. 1 )GO TO 16 
C INTERPOLATE FOR GIVEN VALUES OF XOUT 

DO 15 J=l*NOUT 
DO 12 1=1. NIN 
DX=XINC I )-XOUT( J ) 

IF(DX. GE.EPSI 1 . AND.DX.LE .EPSI2 »GC TO 13 
IF(DX.GE.EPSI2 JGO TO 14 

12 CONTINUE 
GO TO 37 

13 YOUTl JD=YIN< I ) 

DYDXIJ )=D1 Y( I ) 

GO TO 15 

14 DX=XOUT.( Jl-XINt I ) 

YOUT( J» = YIN( I )+DX*(01 Y( I ) + OX/2. * ( D2Y { n+DX/3.+D3Y( I ) ) ) 
OYDX( J)=D1Y{I>+DX*(D2Y(I)+DX/2.*D3Y(I)) 

15 CONTINUE 
GO TO 23 

C INTERPOLATION FOR GIVEN VALUES OF YOUT 

16 DO 22 J=1 .NOUT 
00 17 l.= 1 . N I N 
DY=Y IN£ I )-Y0UTi5 J ) 

IFCOY.GE.EPS! 1 .AND. DY .LE .EPSI2)GQ TO 18 
IF(DY.GE.EPSI2)GO TO 19 

17 CONTINUE 
GO TO 38 

18 YOUTl J J=Y1N(I I 
XOUK JI=XIN(I ) 

DYDXIJ J=D1Y(1 ) 

GO TO 22 

19 DX=-0Yy1DlY< 1) 

20 YO=YIN«I ) + DX*(DlY( n+DX/2.4{D2Y(I )+DX/3.*D3Y( D) > 
DY=YO- YOUTl J) 

IFlDY.QE.EPSll .AND.DY.LE.EPSI2)GD TO 21 


0000244 

00002449 

00002450 

00002451 

00002452 

00002453 

00002454 

00002455 

00002456 

00002457 

00002458 

00002459 

00002460 

00002461 

00002462 

00002463 

00002464 

00002465 

00002466 

00002467 

00002468 

00002469 

00002470 

00002471 

00002472 

00002473 

00002474 

00002475 

00002476 

00002477 

00002478 

00002479 

00002480 

00002481 

00002482 

00002483 

00002484 

00002485 

00002486 

00002487 


I 


YP-D lY.fi I ) +DX*(D2V1 I ) + DX/2.*D3Y( I ) J 

DELX=-DY/YP 

DX=DX+D£LX 


2 1 

22 

23 

35 


36 


37 


38 


GO TO 20 

XOUT< J5) = XIN( I » + DX 

OYOX( J)=D1 Y( I )+DX*(D2Y( I )+DX/2.*D3Y( I ) ) 
C£ NT I N UE 
RETURN 
PRINT 100 

PRINT lOl.XINC U .XIN( 2) 

STOP 

PRINT 100 

PRINT 102. I »XIN( I ) ,XI N(I + 1 1 
STOP 

PRINT 100 

PRINT 103, J .XOUT I J) .XI M NI N ) 

STOP 

PRINT 100 

PRINT 104, J.YOUK JI.YINININJ 
STOP 


100 FQRMATfi/5X, • SUBROUTINE SPLINE*/) 

ipi FORMAT«/5X. 'ERROR IN INPUT X I N ( 1 )= • E I 2 . 4 , 5X , • X I N( 2 ) = • E I 2 . 4/ ) 


00002488 
00002489 
00002490 
00002491 
00002492 
00002493 
00002494 
00002495 
00002496 
00002497 
00002498 
00002499 
00002500 
0000250 1 
00002502 
00002503 
00002504 
00002505 
00002506 
00002507 
00002508 
00002509 
00002510 


102 FORMATC/5X. ‘ERROR IN INPUT I =■ I 5,5 X . ‘ X I N ( I ) = • E 1 2 . 4 , 5X, • X I N ( I «■ 1 ) =000 025 1 1 


1 *E12.4,1) 


00002512 


103 FORMATC/5X, • XOUT ( J) IS OUT OF RANGE 
1‘ XINI NIN)=‘E12.4/) 


J=‘ I5.5X. • XOUT I J)=‘E12. 4, 5X. 00002513 

00002514 


'l04 FORM AT‘(I/5X. • YOUT ( J ) IS OUT OF RANGE 
1* YIN(NIN)=‘E12-4/) 


J=* I5.5X, • YOUT I J) = ‘ E12.4.5X, 00002515 

00002516 

000025 1 / 
00002518 


END 



APPENDIX D 
SAMPLE CASES 

The input and output for two sample cases are presented on the 
following pages. Case 1 is a typical inverse design solution, and 
Case 2 is the analysis of a typical aft-cambered airfoil. Note that 
Case 2 only has two grid halvings. In actual usage, an analysis case 
would usually have one additional grid halving and would use a non- 
zero value for CDCORR in order to obtain accurate drag values 
(see Appendix B). 



^ Sample Case No. 1 - Inverse Airfoil Design 

^ MACH 0.72 AIRFOIL CESICN ~ SAMPLE CASE 1 

&FINP M=C.7?,Xl=-0.38,y2=C.5.CONV = l .E-06 . R N=2 0 . 95E06 , X I BDLY=-0 .34»XSFP=0.46, 
&FND 

6 I INP INV=1 ,f.ENC 
0.50 lOCOO.C 


82 


c. oooco 

C . COO 0 0 

« . 000 1 2 

0 .00441 

C .00082 

0 .00 872 

0. 0021 0 

0.01291 

0 .00397 

,0.0 1693 

C. 00647 

0. C2072 

0. 00966 

0.02426 

0.01361 

0 .02759 

0 .01 833 

0 .03076 

0 .02379 

0 .0 3377 

C. 02999 

0.03665 

0. 03692 

0. 03940 

0. 04457 

C. 042C1 

0. 05293 

0 .04449 

0.06199 

0 .04685 

0 .07174 

0 ,04909 

0 .08217 

0 .05122 

0 . C93 27 

0. C5325 

C. 10499 

0. 0551 9 

0.11733 

0.05703 

0.13025 

0.05878 

0 . 14374 

0 .06044 

0.15775 

0.06200 

0. 17228 

0. 06347 

0 . 1 872 9 

0. 06485 

C. 20276 

0. C6612 

0.21866 

0.06729 

0.23495 

0 .06836 

0.25163 

C .06932 

P . 26865 

0 .070 18 

0.28598 

0. 07091 

0. 30361 

0. 071 54 

0. 32150 

0. 072 04 

0. 33961 

0 .07242 

C. 35793 

0.07268 

0.37642 

0 .07280 

0 . 39505 

0 .07279 

0.41 380 

0.07264 

C. 43262 

0. 07234 

0.45150 

0.07188 

0.47042 

0.07126 

0.489-34 

0 .07046 

C. 50825 

0 .06947 

0.52714 

0.06829 

0.54599 

0.06692 

C. 5646 1 

C. 06536 

0.58359 

0.06361 

0 .60232 

0 .06171 

0 .62098 

0 .05966 

0 .63956 

C .0 5751 

0.65802 

0.05526 

0, 67634 

0, 05298 

0. 69447 

C. 05065 

0.71 239 

0 . 0A83C 

0.73005 

0.04595 

0.74742 

0 .04360 

0 • 76446 

0 .0 41 28 

0.78113 

C. C3698 

C. 7974C 

0. 03673 

0.01323 

0 .03451 

0.82 86 0 

0.0 32 35 

0.84 346 

0 .C 3023 

0.85780 

0 .028 18 

0. 871 58 

0.02619 

0 .88478 

0.02426 

0. 69736 

0. C2240 

C. 90932 

C .02062 

0,92061 

0 .01891 

C .93123 

0 .01728 

^.94116 

C .0 1574 

C. 95036 

0.01428 

0. 95882 

0.01291 

0.96654 

0.011 63 

C. 97349 

C .0 1045 

0.97967 

0 .00938 

0.985C4 

0 .00343 

0.98960 

0 .00759 

C. 99334 

0. 00687 

C. 99624 

0. 00626 

0.99832 

0 .00578 

0.99958 

0.00546 

1 . OOOCO 

0.00534 





0.0 1 
80 

0.00000 

. 

C. C 

c. c 





0 . 0 0 0 C 0 

C. 00046 

-0 .00448 

0.00150 

-0 ,0090 1 

P.O031C 

-0.01357 

0.00524 

-0.01812 

0. OC 794 

-0. 02263 

0. 01 1 19 

-0.02704 

0 .01502 

-0 .03135 

0.01943 

-0.03553 

0.02446 

-C .03957 

C. 03009 

-0. 04347 

0. 03634 

-0. 04722 

0. 04321 

-0. C5082 

0. 05C68 

-0.05427 

0.05876 

-0 .0 5 756 

0 .06743 

-0 .06068 

0 .07669 

-0 .06364 

0.08653 

-0. C6642 

0. 09694 

-0. 06902 

0, 10792 

-0 ,07145 

0.11 945 

-0.07369 

C. 1315! 

-C .07576 

0 .14410 

-0.07765 

0.15719 

-0. 07936 

0.17077 

-0. 08090 

0. 18481 

-0.08227 

C. 1 9929 

-0.08346 

0.21418 

-0.08448 

0 .22946 

-0 .08532 

0.24509 

-0 .08599 

0.26106 

-0. 08647 

0. 27733 

-0. 08677 


I 



0.29387 
0.36217 
0.43270 
0.50519 
0.58093 
0. 65947 
0 .73831 
0.81 386 
0.88158 
0.93653 
0. 97504 
0 .99566 

. 0 

-0.38 
-0 ,91200 
-0.55700 
-0.69000 
0.21 800 
-0.38 
-1 . 10700 
-1. 06 700 
-0 .52400 
-0.14400 
-0.67300 


-0. 08688 
-0.08517 
-0,07926 
-0.06782 
-0 ,05179 
-0. C3448 
-0.0191 1 
-0,00819 
-0,00327 
-0 .00 398 
-C, 0C794 
-0.01185 
.0 

0.50 

-1 .ooeoo 

-C,3600C 
-0.68600 
0,31500 
. 500 

- 1 .10100 
-1 . 056C0 
-O.438C0 
-0.11400 
-0.67700 


-0.62100 
0. 167C0 
0 .51 600 


-0.59000 
0.241 OC 
0 ,52800 


0.31065 
0. 37965 
0.45059 
0. 52379 
C. 60037 
0.67928 
0.75767 
0.83172 
0. 89669 
0.94780 
0. 98187 
0.99809 
C .0 

-0.940C0 

-0,27500 

-0.63000 

0.40700 

- 1 . 09800 
-1 . 05500 
-0.37900 
-0.08700 
-0. 665CC 

-0.528C0 
C. 29200 
0. 5310C 


-0.08678 
-C. 084 1 4 
-0 .0 7694 
-0. 06413 
-0 ,04745 
-0.03035 
-0.01588 
-0.00637 
-C. C0299 
-0 .00479 
-0 .00905 
-0.01243 
0.0 

-1 .01500 
-0.21 500 
-0. 6200C 
0.48100 

- 1 .06700 
-1 .01 700 
-0. 326C0 
-0 ,05500 
-0. 6570C 

-0 .40800 
C. .35700 
C. 5 1000 


0.32765 
C. 39723 
C .4686 1 
0.54262 
0.61997 
0.69906 
C. 77676 
0.849C2 
0.91093 
0.95799 
0.98758 
C. 99952 


- 1,02000 
-0. 15400 
-0.61100 
0.53100 

-1.07600 
-0.91700 
-C. 28400 
-0.00700 
-0.64900 

-0.267C0 

0.39600 

0.53200 


-0.08647 

-0. 08283 
-0 .07426 
-0.06019 
-0. 04308 
-0 .02638 
-0. 01 296 
-0,00495 
-0.00303 
-0.00575 
- 0.01010 
-0. 01 278 


-1. 04900 
- 0 . 1 0^“00 
-0.56100 
0 .54700 

-1. 07800 
-0.80800 
-0.24400 

-0.63700 
-0. 13900 
0,43600 


0 .34483 
0.41492 
0.48680 
0 .56167 
0. 63966 
0.71876 
0.79552 
0. 86566 
0 .92423 
0.96708 
0.99218 
1 .00000 


- 1 , 081 OC 
-0.04100 
-0 .30500 
0.5700C 

-1.06900 
-0. 70100 
-0.20700 

-0 .65000 
0 . 00200 
0 .47000 


-0 .08594 
-0.08121 
-0.07121 
-0 . 05606 
-0.03874 
-0 .02262 
-0.01039 
-0. 00392 
-0 ,00338 
-0. 00682 
-0.01105 
-0 .01290 


-0.58300 
0 ,04000 


-1 . 061 00 
-0 .60800 
-0 .16200 

-0.62800 
0. 08900 
0 ,49800 



MACH 0.72 AIRFCIL DeSlCN 


SAMPLE CASE 1 


X-Y GRID SYSTEM 


2 -O.IAIOE 01 3 -O.AQOOE 00 A -0.3706E OO S -0.24d5£ 00 6 -0.12A7E 00 7 0.0 

e O.I2A7E CO V 0.2A8SE 00 10 0. 370OE 00 II O.AVOOE 00 12 O.IAIOE 01 

2 -O.A2btE CO 3 -0.1A20E 00 A -0.230JE-07 S 0.I420E OO b O.A2blE 00 

MACH NO. IS 0'-.720 ANGLE OF ATTACK IS 0.0 DEGREES 
DIRECT SULLTICN TC O.SO 

CASE NUHdER 100 

INVERSE DESIGN CASE 
CF INP 

M= 0.71VG'^)997 , «s l.69V9*3Ga .Xl= O.SOOOOOOO .X2= 10000.000 .ALPs 0.0 .EPS= 0.0 .EPSSs 

0.4999V99d .X4B 0.ASV9999S .SA« 2.0000000 .CUNVs 0 . 9999994 3E-06 • A I s 0.2AS9Q999 .A2s 0.IA99999A .AJs 3.BOV9999 

RNS 209SOOOC. ,x]e0LY = -0.3A99‘P99o .C|Rs 0.0 .COCORR= 0.0 .RUELs 0.2SOOOOOO .RDElFNs O.I2SOOOOO 

SPs 0 . JV999vb9E-02 . X SEF= O.Ab99999b .RCPBs 0.19V99999 .CPa= 0.3999999d .XMONs 0.A6999997 .XLSEPs O.bOOOOOOO .XPC= 

0.99999VOAE-C 1 
CEND 
C 1 INP 

iHAXs IJ.JMAXS 7.lKASb*s lOO.iNVs l.M(TEH> OOO.NHAlFs 2.(TACTs O.ISKP2s 

OtlSKP3= O.ISKP4= O.ITENPS O.lREADs O.LP= IOOO.ITEUPC= O.ITEL«C= 

0 

SEND 

AIRFOIL CLCNOINATES 

X YU YL UPPER SLOPE LOWER SLOPE 

-0.49000 O.C24bfl -0.02bbd 0.93719 -1.J1772 

-0.370Sa a.CSEo/ -0.0/3A2 0.12998 -O.lbASS 

-0.2AU52 O.CbSai -0.O8O2I 0.0SA19 -0.0J1I9 

-0.12470 0.C7280 -0.08A42 0.00332 0.062ua 

0.0 0.06993 -O.OUbUO -0.05J00 0.18773 

0.12470 O.Cb924 -0.0420J -0.11419 0-.22I23 

0.24RS2 0.0434b -0.U1738 -0.IJS7U 0.18651 

0.37008 0.02bJ4 -0.003bd -0.14519 0.04SI3 

0.49000 0.00752 -0.01088 -0.18798 -0.200b0 

ITERATION 10 CIR = 0.10732 DPM = 0.00441951 AT 5 3 NSSP = 3 UELTAV OH OELSTAR s 0.0 

ITERATION 20 CIR s 0.13w70 DPH = 0.00231314 AT 12 3 NSSP s A libcTAV UU DEL5TAR = 0.0 

ITFRATION 30 CIR = 0.15451 OPM = 0.00187090 AT 10 3 NSSP = 4 UELTAV UH OELSTAA = 0.0 

ITERAriON 43 CIR s 0.16997 DPM = 0.001>3852 AT 10 3 NSSP s 4 OLcTAV OR OECiTAR = 0.0 

ITEhATICN 53 CIR a 0.18249 DEM s 0.0014C4A7 AT 1C 3 NSSP » 5 DtLTAV OR OC.LSTAR a 0.0 

CP ev DACKWARD DIFFERENCES 
X CPC CPL 

-0.490 -0.174 O.OlJ 

-0.37 1 -1 .174 - 1 . 04 J 

-0.249 -0.6JJ -0.823 

-0.I2S -0.U77 -0.789 

0.0 -0 . 798 -0 . 7b 1 

0.125 -0 .SC 7 0.211 

0.249 -0.174 0.4.’0 

0.371 -0.087 O.S40 

0.490 0.J42 0.5 >b 

1.410 C .3c j 0.049 

C® t>y CENTRAL L It-FtKl.NCcb 
X CPL Cr-L 

-0.490 -U . 1 74 0.013 

-0.571 -1.174 -l.0«3 

-0.249 -C.671 -0.909 

-0.125 -0.7BS -0.780 

0*0 -0*712 -0.442 

0.12S -0.501 0.03S 

0.249 -0.264 0.337 

0.371 -0.103 o.soa 

0.490 0.416 0.665 

1.410 0.028 0.028 

CP 8Y central UITFERENCES 

X CPU CPL 

-0.490 -0.174 0.013 

-0.371 -I.17A -1.0A3 

-0.249 -0.871 -0.909 

-0.I2S -0.785 -0.760 

0.0 -C.712 -0.442 

0.125 -0.501 0.03b 

0.249 -0.264 0.337 

0.371 -0.103 O.SOd 

0.490 0*410 0.663 

1.410 0.028 0.028 

X YU VL 

-0.49000 0.02458 -0.02552 

-0.370S8 €.05867 -0.U7S42 

-0.248S2 0.06931 -0.08621 

-0.12470 U.C72bO -U. 08442 

0.0 0.06993 -0.06880 

0.12470 0.05924 -0.04203 

0.2485? 0.04345 -0.01738 

0.370S8 C.026J4 -0.00368 

0.4-9000 0.00752 -0.0I0E8 

71 70 69 70 71 

63 60 0 71 73 

79 99 OlOJ £3 
83102 0102 88 

83 96 01CO es 
78 86 0 97 E7 

73 72 0 89 €3 

69 63 0 81 79 

67 60 0 76 75 

SI 45 0 60 ee 

70 70 70 71 71 

WAVE CO a -0.031180 


SLU 

0.9J71B 
0* 1 2998 
0.0S4 19 
0 .00 332 
-0.0S300 
-0.1 1419 
-0. 1 3S70 
-0. 14519 
-0. 18798 


SLU 

-I, 31 772 
-0. 16455 
-0.03119 
0. 06268 
0. I 8773 
0.22123 
0. 16651 
0.04513 
-C. 26660 


88 


Chart loo 


-0. 3700 


>0t2300 


a 


n 


U I oo 


B 


I.B 


PWt^l,Uke COt»=FICItNT 
CP^rAH • -0.6VVJ 

= -0. U J > 1 <iO CM«_E = 


-o.2s:> 
CLCIO s 

-O. IVbl CDF 


0. J6b0 
0.0 


-0.1 232 


89 


H4Ch 0.72 AtRFClL OCSifGN — SAMPCe CASE I 


x-y GRID sysrex 


P -0.J972E Cl 

fc -o.josae 00 

|o 0 .ti^^OL-C I 
20 0.4 tC7b CO 

2 -O.Qiaib 00 
b 0.69«2t-CI 


3 >0. 14 1 OE 01 
9 -0.24 et>E 00 
lb 0. 124 7E 0 0 
21 0.490CE 00 

J -0. 4201b 00 
9 0. I420E 00 


4 -0.6471E 00 
10 - 0.1 at>ab 00 
lb 0 . 1 a&aa oo 

22 0.O471E 00 

4 -0.2460E 00 
10 0.2460E 00 


5 -0.4900E 00 

I J -0.1247E 00 

17 Q.248SE OO 

23 0.1410E 01 

» -0.1420E OO 

II 0.4261C 00 


6 -0.4307E 00 
12 -0.0240E-01 
18 0.3098E OO 

24 0.3872E 01 

6 -0.C>S92E*01 
12 0.9181E 00 


7 -0,3706E 00 
(3 0.0 

19 0.3706e 00 

7 -0.92135-07 


MACH NO. IS 0.720 ANCLb UK ATTACK lb 0.0 OCbMEES 
OInEcT bOLLTlCN IQ -0.36 

CASL NUHBKK 100 


INVGHbE OEblGK CASE 

tP INP 

M= U. 71999997 < «- I.099V998 . X ] =-0. 38000000 *X2a O.bOOOOOOO .4LP= 

0.j9999')98 .X4a 0.4699999b .S4s 2.0000000 .CUNV= 0 .99999943E-06 . At s 

MNa 20900900. t X laOLTs- 0. 3499 7996 tCIRs 0.16249327 .COCORMc 0.0 

SPs 0 . J99999b9i-0? , XSEP= 0.43959998 ,RCPB= 0.I99V9999 *CPB= 0.39999V96 

0, 999V5sifc4F- C 1 
t£ND 
& I ISP 


IHAXs £6.3-4 AXb 

0. 1 bsP 


I J t I KA$5s 1 00 « I NV« 

O, I 8K -»4s 0 . I TEBP = 


1 .MITEAs 

0 . lkbAD = 


c End 


0.0 *EPSs 0.0 ,EPSS= 

0.24S99999 *A2= 0.14999998 .A3= 3.8699999 

.ROELs 0.2&000000 iROELFNs 0.12500000 

,XMON= 0.46999997 .XUSEP= 0.50000000 tXPC= 


400.NHALF* 2»ITACT= 

O.LP= lOOO.lTEUPCs 


0« 1SKP26 
0. I rEL.MC = 


- 0 . s/'J 0 0 

- 0. *. j06 7 
-0. 17y:'.b 
-0.30932 

- 0 . 2 4 a b z’ 

-O- 1 HO 7 7 

- 0 . 1 2 '* 7 0 
-O.Ou.’oO 

0.0 

C. 0«i/?4 0 
0 . I If4 7 C 
0. I ( o77 
0.24432 

0. 109h2 
0. J7i)bfi 
0 • 4 J 0 .j 7 
0.49000 


A1,<FU|L CJDPOINATLS 


0 . C24sa 
0 . C4 h'oo 
0 .CPfrP 7 
C .CCb I 0 


,Ct.» 


O - C 7 I 6 J 
O.C7260 
0 .Cfri? 1 
0 .UC99J 
0 . Cbb j 7 
o . ca9 i4 
C . CS 1 1 3 
0 .04 J4U 
0.03499 

c . o^t 34 
0 .C 1 7 J 7 
0 .CO 7 3? 


YL 

-0.026 62 
-0.06132 
-0.0 7642 
-0.08274 

- 0 .066 2 I 

- 0 . 0O6 7a 
-0.06442 

- 0 . 0 7uuu 

- 0 • Uob 8C 

- 0. 066CU 
-0.0420J 

- 0. 026 8 J 
-0.0 1 7 Jb 
-O.OObbO 
- 0 . JOJod 
-O.OOJ 60 

- 0. 0 1 0 6J 


OPPLK bLilPE 
0 . 9 J7 1 a 
0.22266 • 
0.12946 - 

U.066C6 • 

0 . 064 I 9 
0. 02766 
0.00332 
-0.02240 
>0.00300 
>0 . OSuSb 
-0.11419 
- 0. 1 2a 70 
-0. 1 3670 
-U. 140£4 
-0.14619 
-0.15402 
-0.1 6798 


CUWFM 6I-UPE 
1.31772 
C.JJ09 J 
0.16466 
0.06394 
C .0 JI 1 9 
0.0 1 JS>6 
0 . Oo2(>A 
0.12527 
0. 1 877 J 
0.21997 
0.22123 
0.20166 
O.UiObl 
O.l 1609 
0.04613 
0 .040 1 b 
0 .20660 


- 0 

- 0 


■? I 

5 j7 


OPPfTN CP INPoT 

-1.006 -0.940 -l.Olb -1.020 

-C.JoO -0.27'j -0.21b -0.tb4 


-1.049 


- 0.1 00 


-I .081 -0.S83 

-U.041 


- 0 . o >0 
0 . 2 J t 
TM- AT I L,N 
T I K -M ICS 
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LC'WlW C.H ISV'iyl 

-0 .0 30 -0.C2O -O.bl 1 

0.407 0.461 0.631 

U.299'57 UP-' = U. 00931 IJH AT 

1.29601 U* ;•> = 0.00303016 AT 


-O.bbl 

0.647 

16 2 NS6P 

6 2 NSSP 


-0*305 0.040 

0.570 

lb Ot-LTAY OR Of.LSTAN - 
14 DLLTAY or UELSTAM a 


I I A T I ’ \ 
M- A T I IS 
I i-aI I 
^ I. A I I i-.„ 
t l« A 1 I yf. 
I 1. A T I ij\ 
I A I 1 >.S 
t I- A 1 1 U 7 j 


TLf ' 


' I t. 


Ttl- XT K, 


flO ( 1 

I J C / w 

200 C i-< 


1* V- Ml _>s 
1 1 hr .t I I S 

T t 1-rAl I 1.S 


3 13 I I H 
17. J I. I < 
J6 1 C I 7 


I LN 3 7; Cl- 


J K K A I I 6 
Xr »• AT I i, •, 

in. AT I VI. 


1.29 96 a 
3 . i JCc 7 
1 . i<> I 1 1 
3 . Jc J vy 

0 . > 6 1 . b 

1 . tOlbc- 
C . J ‘j I 9 I 
•> . J 1 I U 
0 . 39 I ou 
0 . lb 1 C 6 
*). 3)167 
. jn 1 St 
J . 10 1 6U 
9 . Ji; 1 uo 
J . a 3 1 66 
0. 101 b*. 
0. JPI86 
0 . 3C 1 0 C 
9 . 10 I 06 

0 . iu IK b 
0 . JO 1 6 5 
0 . J J I 3 b 
C . iO I 6 1; 

J . 30 I 6b 
9.30166 

0 . 10 1 U b 
J • JO I ->b 

1 . tu I I. 


i;pM 

Ui-K 

UPH 


Lrps 

l)p^l 

UPM 


0 .lolo:- 
1 . 30 1 6 b 
n . J J 1 6 5 
0 . JO 1 Mb 
0. >)l6b 


O . 00 I O JVO 7 A I 
■).O0 >7 42 7‘j a I 
C.OO0j246O AI 

UiJ0ov*n2b'* AT 

U.C002040 ) AT 
•J .OC } I A> 

O.OOl) 10 7^9 aT 
0 .0000 7b t 4 A I 
U.0C0067O4 AT 
0.'10'104 l?l AT 

C.tC30Y9r)sj at 
0.00u02lu4 Al 
O .0900 I « 1 J AT 
C . COOO 1162 AT 
O.OOUOCEb? AT 
tj , CO ) JCv’>0 AT 
9 . r 00 0 0 a42 aT 
O.COJJOJel aT 
0.09OUP274 AT 
U.OO ).)02OJ Al 
C.0O30O7SI AT 
C .000 JO I7‘» AT 
0,00090232 AT 
0.900 0 0*>C7 AT 
0.300 )0?6.' AT 
0.O00O0243 AT 
O.LCO)CIJ6 AT 
O . C L O It 1 . IV H AT 
O.OOllOA-il Al 
9.0C9J027. aT 
0 •UUui>07«h '• Al 
O.OOOoOrbA AT 
t . 0000 J90 7 A T 
0.3C3J92^o Al 

0.»0O'j048h at 
0 . 300 )C29 7 Al 
C. 0000033'' aT 


14 J Nbvn - 
10 2 RbSP s 

1 I 2 NbbP a 
14 3 NSSP 

10 2 NbSP a 

10 3 H6»P a 

1 U 3 SSSP s 
I 0 J NbSI' a 
I I ^ NbSP a 
1 0 6 NSSP a 

10 4 NbbP a 

1 I b NSSP a 
« J NbSP a 

12 6 NbSP a 

10 3 NSSP a 

12 J NSSP a 

4 6 NSSP « 

22 »• NSbP a 

12 3 i4SSP a 

5 2 NSSP S 

1 6 2 NSSP a 

23 6 NSSf a 

2 10 SSSP a 
2 a NSSP a 

24 6 NbSP a 

23 7 NSSP a 

23 7 NSSP a 

2 J o NbSP = 

2 1- 7 N 5SP .= 

24 b NbSP a 

22 7 NSSP a 

2« 7 NSSP a 

23 7 N^SP a 

2u 6 N^SP a 
23 7 NSSP a 

2> 7 NSSP a 

23 7 NSSP * 

?4 7 NSSP a 


lb OecTAY 

16 deutav 

14 UILTaY 
J« DL..TAy 
14 OLLTAV 
14 OtCtAY 
14 IJfcLTAV 
14 OLClAY 
14 OEcTAV 
14 OILTAY 
I 4 DEL T AY 
|4 DLI-TAY 
14 DTLTaV 
14 DCCTAV 
|4 DELTAY 
14 UELlAV 
I 4 OCCTAY 
14 DbLTAY 
14 DfLTAY 
14 OfCTAV 
|4 OFLTAY 
14 OcCTAY 
14 QLl-TAY 
14 DELTav 
14 OELTAY 
I 4 DLLTAY 
14 OELTAY 
14 DELTAY 
14 DFCTAY 
14 OFLTAY 

|4 OELTAY 
14 OftTAV 
I 4 OFLTAY 
14 OLLTAY 
14 DtLTAV 

1* oeltay 

1 4 OLL T AY 
14 DEL 1 AY 


on UfL-jrAK 

on OFl. STAR 
OH OEL..TAH 
OH OELSTAP 
U« OELSTAP 
OH OLLSTAH 
UM OELbTAR 
UR UCLSIAR 
OH OECSTAR 
OR DEL STAR 
UR UELaTAR 
UR OFLSTAR 
OR OE.I ITAR 
UR UCLSTAH 
CH OFLSTAR 
OR OELSTAR 
OP DEL STAR 
UR DELSTAA 
M ObLaTAH 
Ok del iTAH 
OR UELSTAR 
CR OELbCAR 
OH OEuaTAR 
UK OLLSTAR 
UR DLLSTAH 
OR OELjTAH 
UR OFLSTAR 
CH 0£L >TAR 
UR OELaTAR 
UR DLL 3 TAR 
Or OCLSTAR 
OR OFLSTAR 
UK OFLJTAR 
OH DELSTAK 
UR OFLSTAR 
CH UELSTAH 
OH OClSTAR 
OR UELSTAR 


a 0.0 
a 0.0 
a 0,0 
a 0.0222 
a 0.0073 
a 0.0037 
a 0.0025 
a 0.0018 
a 0.0013 
a 0.0010 
e 0.0007 
a 0.0005 
a O.OOOA 
a 0.0003 

a 0.0002 
a 0.0002 
a 0.0001 
a 0.0001 
= o .0000 
a O.OOOl 
a 0.0000 
a 0.0000 
a 0.0000 
a 0.0000 
a U.OOOO 

a 0.0000 

S 0.0000 
a 0.0000 
£ 0.0000 
a 0.0000 
s 0.0000 
a 0.0000 
a 0.0000 
a 0.0000 
a 0.0000 
5 0.0000 

9 0.0000 

a 0.0000 
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CP r.Y bA<r. *aim; l I rt > ksnijl b 

X CPC. C»'l 
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J<^4 
Qd 7 
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63 1 


1 

i I 0 


1 . A I u 
.■< . 87^ 
TiV CF ".1 


-U 

- 1 .110 a -u 

- I . J/i .1 -u 

- I ,c« I -0 

-C.'JO's -0 

-n.r.7U -0 

-0 . j<; 7 u 

-0 ,d<.n 0 

-C J U 

- 0 . I 8 F U 

-0 . U'iJ 0 

U . I << H O 

0 . OHCi 0 

0 • 0 ^ Li 0 

0.')04 0 

I'AL DIF KEHENCfcS 


4o0 

OdO 

OdCi 

004 


CPL 


Oil? 

1 d-> 
IP.f 
d'l t 
} I 0 


-0 . dfad 

- 1 .Ciid 

-1.316 

- C •■F'lPO 

- L .96*; 
-1.004 
-1 .0?J 
-I .049 
- C .90b 
-0.8 79 

- 0 . S J 8 
-Q . K. 7 
-0..’<.0 
-O.diJ 
-0 . 1 b9 

- 0 . 0 S J 
O . I 46 
0 . IHb 


. J^4 
. bJj 
• tOb 
. oi u 
. o I J 
. b 80 
. 479 
. db J 
. Olo 
. 1 bO 
. 294 
. J9b 
. 4 72 
. bd*! 
. bb 1 
. 4(j0 

. one 
. C 2 u 
. 004 


- 0.49000 
- 0 . 4 J 067 
-0 . J 7 ObH 
- 0 . O 09 U 2 
- 0 . 248 a 2 
-0 . I do 7 7 
- 0 . 1 24 70 
- 0 . 0 O 240 
C . 0 

0 • 06240 
0 . I 2 470 
0. I ab77 
0.24652 
0.30902 
0 . 3 7058 
0.43067 
0.49000 


U . 024 bU 
C.U 48 bO 
C . 0 b 90 b 
C .oebS 3 

C .072 I 1 
C. 07 J 06 
C . 07245 
C . 0701 3 
O.Cb 59 b 
C.CS 975 
C.Cb 22 Q 
0 . 0440 J 
0 . 03 Sb 6 

C. 02066 
C . 0 I 790 
C • CCa I b 


- 0 . 02 bbd 
- 0.06 I Jd 
' 0.07502 
- 0 . 0 U 647 
- 0. 06600 

- 0 . 0 (JOb 4 
- 0 . 084 1 6 
- 0.07043 

— 0 . Ob 8 b 3 
-O.OS 6 I 8 
- 0 . 0423 b 
- 0. 0291 2 
- 0.01 764 
- 0 . 0089 1 
- 0. 00399 
- 0.004 I 4 
- 0.01 21 I 


bt-Li 

0.93718 
0.22258 
0. 12977 
0 . C 8462 
0 . 0 S 40 S 
0 . 02 74 1 
0.00312 
- 0.02263 
- 0 . 06353 
- 0.07943 
- 0.11 425 
- 0. 12857 
- 0 . 1 JS 53 
- 0 . 14042 
- 0 . I 4526 
-O . I 5427 
- 0 . 18591 


bi.1. 

- 1.31 772 
- 0*33099 
- 0 . 16 S 25 
- 0.08434 
- C. 031 40 
0.01 387 
0.06265 
0. 12524 
0 . 18729 
0.21943 
0. 22 128 
0.20241 
0 . 16710 
0.11 546 
0.04496 
- 0.05072 
- 0.20427 


71 7> 71 71 

70 6V AV 

07 (.b u3 

70 0<> SS 

71 7;- 7J 70 

71 7‘* 7H tS 

7 1 70 t2 a'l 

71 77 ri4 *il 

7J 7» VI 
71 77 90 

M 70 dO So 
71 74 7o 70 

70 7^' 7X 72 
7C 70 OV C.7 
70 oe OO hJ 
n'4 O 7 C4 0 1 
.»o oc t32 Oo 

ov oi oa 
0‘7 ub L<» tiO 
fi7 fil -j7 'j'V 
o^ •» 7 o 7 6 7 
70 70 70 70 

7 1 7 1 7 1 7 1 


7 1 
c *> 
til 


C I 


? 1 


71 71 71 71 71 71 

CV oS 70 70 70 71 

*jd <.4 u7 bV 72 74 

0 7/ 7e 00 tf4 

0 1 Oc 94 tiU 84 HO 

01 1.7| OJ 96 ed dl 

J 1 1 ^ 1 Cb VV VI 02 
U 0107102 04 62 
0 OlOVlOJ Va 8J 

J Cl >0104 9o di 

O 0 I I J i 04 Vb 6 3 
0 0 1 C4 9v •J'e H2 

0 0 90 9J dV 02 

J VJ VI dV UO HI 

U 67 Lo 6o 64 60 

0 dJ HJ C.J d2 SO 

a oo dO ao 00 79 

•) 7H 7u 7J 7l 7b 

0 70 /“i 7« 7 '7 77 

J ti'i /I 74 7/79 

cfl oO 70 71 72 74 

70 71 71 71 71 72 

71 71 71 75 71 72 


*4Vr CO - -O.OOiSVJ 


CHART 100 


-0.4900 
-0.4 TOO 
- L‘ . J 7 0 0 

-0. 2900 
-0. -> TOO 
-0.1 700 
-0.1100 


0. 4 S oo 
0.4900 


-0.249 -0.069 


cpstah = 


0.S74S CO 


-0.003b93 C*«l-E s -0.2991 COF 
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£ -0.6027E Cl 
e -0«SJI7b 00 
14 -0.3403t 00 
£0 -O.lbS'Sc 00 
26 0* J1 21 t-O I 

32 0«2t 77E CU 

38 0.4007E CO 

44 0,*tl 16tf 00 

2 -0.1869E 01 
a - o • 1 auuL' oo 
14 0.J230C-C1 

20 0.320r>e CO 


3 -0«J872t: 01 
V -0«4900F 00 
16 >0.J09UL 00 

21 -0 • 1247b 00 
il 0.6240ri-01 
3J 0«24aoC 00 
39 0.4307E 00 

45 0. 14 lOE 01 

3 -0.91 6lL 00 

» — O . 1 4 £ Of OO 

Is 0.6092E-01 
21 n.42oie 00 


4 -0.227bf 01 
to -0*4o04£ 00 
16 -0.27O2E 00 
-0.9307E-0I 
2U 0.9JS7E:-OI 
34 0.2792E 00 

40 0.4O04E 00 

*(i 0.22761 01 

4 -0.S939E 00 
to -o . 1 c t Of OO 
16 0. 1 01 9b 00 

22 0«693<.ie 00 


a -0. l4 lOE Ol 
I 1 -0.4J07E 00 
I 7 -0.2486E 00 
23 -0.6240e-01 
29 0.I247E OO 

3S 0.3098E OO 
41 0.4900E 00 

4 7 0.38 721 01 

b -0.4261E OO 
I t -0.6SV2C-U 1 
1 7 0.1420C OO 

23 0.918IE 00 


6 -O.VlIbE 00 
12 -0.4007E 00 
18 -0.2I77C 00 
24 >0.312IF-01 
30 OalbSflE 00 
36 0.J403E 00 

42 0*a3l7E 00 

48 0.8027E 01 

6 -0«3206E 00 
12 -0.3239E-01 
16 O.IBOaS OO 
24 0.I86VE 01 


7 -0.6471E OO 
13 -00706E 00 
19 -0.I66BE 00 
2b 0.0 

31 0.I668E 00 

J7 0.3700E OO 
*3 0.647IE 00 

7 -0.2460E 00 
13 -0.9213E-07 
19 0.2460F 00 


MACH NU. 1£ 0.720 ANr.Ll CF ATTACK lb 0.0 UEOHcbO 
OII4LCT bQLCTIQN TO -0.38 

CAbb NUHHbH 100 


1NVEH8E ObS I6N CASE 
6F ISP 

M= 0.71V99997 ,4= l,6999v96 . X I a- 0 . J »J0 00 00 0 ,A 2 a O.bOOOOOOO .ACHa 

0.39999998 ,X4s 0.4U99999b .64= 2.0COOOOO iCOSVa 0 . 9999994 3E-06 • A1 = 

HNS 20960000. .AjaULVa-0. 34 <99996 .CIR= O.JOIdbORO .ClOCOHPa 0.0 

SPs 0. )V9999o9b-C2iXbKPa 0.4b99999b .HCPUa 0.19999999 .CPBa 0.3V999V98 

0.99999064e- C 1 
CENU 

O 1 ISP 

IMAXa 49.JHAX= 2b.lKASb= lOO.lKVs I.HlTESs 

O.ISKPJs O.ISKPAa O.ITb'HPa O.INFAUa 

0 


•9 .FPSa 0.0 .bPSSa 

.245*19999 .A2= 0. 14999998 .AJ= 3.8699999 

.SaiLa 0. 26000000 .HOECrNs 0.12500003 

.XMUN* 0.46999997 .XLSbPa 0.50000000 .XPC 


400.NHALF= 2.ITACTS 

O.LPs I 000 . I TEuPCs 


0 . 1 SKP2 
0 t I TELbCa 


C£ND 


AIHFUIC CfCRPINATES 

* YL UPPfcrt SCOPE LUwlH SCOPE 

-0.49000 0.C24Sa -0.02662 0.93718 -1.3177? 

-0.46044 0.04034 -0.04897 0.J4642 -0.62528 

-0.43007. C.C4S56 -0.0OI32 0.22268 -C. 33099 

-0.40072 0.CS427 -0.06966 0.16631 -C. 22929 



-0 . 


107 

0o7 

s?4 

144 


- 1 . lot 
- 1 .066 
- C .438 
-0.114 


UPHEP CP INPUI 


-1 .098 
-I .Obo 
-0.379 
-0.087 


-1.067 

-1,017 

-0.326 

-O.Obb 


-1.07<S 

-0.917 

-0.204 

-0.007 


-1.078 

-0.608 

-0.244 


- I , 069 
-0.701 
-0.207 


-1,061 

-0.608 

-0.162 


-0.673 
-0.621 
0.167 
0.616 
I TEPATION 
1 TEKA1 1 On 
I Tbh AT I ON 
I TER AT I ON 
1 TERAT 1 OS 


-C.677 
-C. G‘7 0 
0.241 
C.S28 

10 C IR a 

20 CIR a 
30 C 1 H = 
40 CIR = 
50 ClK s 


LC6EN CP INPUT 


- 0.666 
-0.626 
0 .292 
0.631 

0.302O4 0PM 
0.33101 0PM 
0.J0I6J UPM 
0.30166 DPH 
0 . JO 16 3 UPH 


-0,667 -0.649 

-0.408 -0 . 207 

0.357 0.396 

0.610 0.532 

a 0.00127091 AT 

a 0.00016469 AT 

s 0.00005647 AT 

= 0.00004399 AT 

a C.0C0036I2 AT 


-0.637 

-0.139 

0.436 

17 NSSP 
I 3 NSSP 
2 NSaP 
2 NSSP 
2 NSSP 


-O.bbO 

0.002 

0.470 


-0.628 

a.C59 

0.498 


67 OECTAV OH 

68 OELTAY UR 
67 OCLTAV or 
67 DELTAV UR 
67 OECTAV oh 


DECS r AH a 
ObCSTAR a 
DECSTAR = 
OELSTAR = 
OEC5TAM = 


0.0 

0.0 


0.0 
0 , 0 
0.0 


I T b I* A I u N 
1 Icl.'A 1 1 CN 
1 I F K A T I JN 
I Tt H A T I US 
1 I£t AT I .jH 
I T1 h A T 1 oS 
1 let- A 1 1 LN 
I TbRA T 1 UN 
I Tbh A r 1 LN 
I TEH A 1 1 UN 
I TbKATIUN 
I TERAT 1 ON 
I T e R A 1 I C N 
I TERAT I US 
I TEKAT I ON 
1 TERAT I US 
I TERAT 1 ON 
I TEkAT I UN 
1 TEA AT I UN 
I TEk AT 1 ns 
I TFRAT ION 
I TEkAT 1 ON 
I TERAT 1 ON 
I TEkAT 1 CN 
I TEkAT 1 ON 
1 TERAT ICS 
1 TERAT lUN 
I TEkAT I CN 
1 TER AT I US 
I TERAT I On 
I TE kAT [CN 
( TEkAT I UN 
1 Tbk AT 1 ON 
t TEkAT I ON 
1 TERAT 1 OS 


6T t IH • 
7 J (_1R = 
AO (. I R s 
TO CIR = 
100 CIR = 
110 C ik = 
123 C I k = 
130 cm = 
14 C CIR s 
160 CIR a 
I6C CIR a 
170 ClH a 
IHO CIR a 

19U t 1 H = 

200 ClH = 
?I0 ClR a 

220 cm a 
230 ClR = 
24 O CIO = 

260 cm = 

260 ClH a 
270 CIR s 
250 C I It = 
290 ClR = 
300 CIR = 
310 CIR = 
323 CIR = 
330 CIR a 
34 0 CIR a 
350 CIR a 
360 cm a 
370 CIR a 
380 ClH a 
300 CIP = 
406 CIR = 


U .30 1 I 3 
0 . J0094 
0 . 3609 4 
0 . 36094 
0 . 30094 
0 • 30094 
3.30094 
C. 30094 
0.30094 
0.30094 
0 . 30094 
0. 30094 
0 • 30094 
0 . 30094 
C . 30094 
0.30094 
C .30094* 
0. 30094 
0 .30094 
0.30094 
0.30094 
0.30094 
0 .30094 
0 . 3609 4 
0.30004 
0 . 3009 4 
0.3C094 
0 . 36094 
0. 3009 4 
0.30094 
0 .30094 
0. 30094 
O.J0094 
0 • 10094 
0 . 3609 4 


UPM s 
UPM = 
DPM = 
DPM = 
UPM a 
ORM * 
URM a 
UPM = 
URM = 
DPM = 
UPM = 
UPM = 
OPM = 

□ PH = 
OPH a 
' OPM = 
OPM a 
OPM a 

OPM = 
OPM s 
OPM ■ 
UPM = 
UpM = 
OPM s 
UPH = 
OPM s 
UPM a 
OPH = 
ORM a 
UPM = 
UPH a 
UPM a 
UPH = 
DPM M 


C. 00007662 AT 
0. 00002662 AT 
C.000U349'J AT 
0.00002229 AT 
U. 00006038 AT 
0.00002679 AT 
0.00002963 AT 
C. 00002206 AT 
0.0000 I 734 AT 
O.C0002346 AT 
0.0000299A AI 
0.00002634 AT 
0.0000'2784 at 
0.00002900 AT 
0.00002027 AT 
0.00002140 AT 
0.00002801 AT 
O.OOOOJU87 AT 
0 .00002364 AT 

0.00002966 AT 
0 .0000 1 32 J AT 
0.00002342 AT 
0.00003570 AT 
0.0000 I 262 AT 
O.OOOOJ4J1 AT 
0.00002944 AT 
0.00001991 AT 
0.00003204 AT 
0.00003169 AT 
O.OOOU 1216 AT 
0.00006831 AT 
0.00001198 AT 
0.00001224 AT 
C. 00002964 AT 
0.0000 1361 AT 


46 2 NSSP # 

27 2 NSSP = 

47 12 NSSP = 

21 2 NSSP = 

48 1 I NSSP a 

43 13 N66P a 

40 13 NSSP = 

47 7 NSSP = 

21 2 NSSP = 

2 7 NSSP a 

48 7 NSSP a 

4d 13 NSSP = 
48 12 NSSP = 
48 1 3 NSSP = 

44 I 2 NSSP « 

46 I I NSSP a 

47 12 NSSP a 

48 13 NSSP = 

2 7 NSSP a 

48 8 NSSP = 

44 3 SSSP a 

4A 9 NSSP = 
47 12 NSSP = 

47 13 NSSP a 

48 13 NSSP a 

48 7 NSSP = 

47 12 NSSP a 

46 13 NSSP a 

46 I 2 NSSP a 
4b 4 NSSP = 

48 13 NSSP = 

4 7 9 NSSP a 

43 1 3 NSSP a 
46 I 3 NSSP a 
46 13 NSSP = 


68 OELTAY. 
6 7 OEl_TAY 
6 7 OELTAY 
87 DElTAY 
67 ObLTAV 
67 OtLlAY 
67 OiLTAV 
67 OELTAY 
67 OELTAY 
67 OELTAY 
67 OELTAY 
67 OELTAY 
67 OELTAY 
67 OELTAY 
67 OELTAY 
67 OELTAY 
67 UEL.TAY 
67 OELTAY 
67 OELTAY 
67 OELTAY 
6 7 OELTAY 
67 OCLTAV 
67 OELTaY 
67 OELTAY 
67 OELTAY 
67 OELTAY 
67 OELTAY 
67 OELTAY 
67 OElTAV 
67 OELTAV 
67 OELTAV 
67 OELTAV 
67 OELTAV 
67 ObLTAV 
67 OELTAV 


.ON OELSTAR a 
OP OELSTAR = 
OP OLLsTAR 9 
OR UbLSTAR = 
OH OFlSTAR s 
OH OELSTAR a 
OH OELSTAR = 
UR DELSTaR a 
UR DbLSTAR -= 
OR OELSTAR a 
UR OELSTAR = 
OR OELSTAR a 
UR DELSTAR a 
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-0.0639? 
-0.0Uo4o 
-0.06o3l 
-0 .0064 j 

-0.0O379 
-0.03J 3V 
-0.07772 
-0.07JI 7 

- o . o c7 6<-; 
-O.ObI 0 l> 
-O. 00401 
-O.04OOO 

-0 .0 3<7<r4 

-0.031 94 

- 0 . 02302 
-0.01643 
-0.01240 

-0.00704 
-0 .UO204 
0. UOOS4 

0.00242 
0.00203 
0 . Oo 1 60 
-0.001 O'. 
-0.0072J 
YNLA 

-0.04097 
- 0 .ool JJ 
- 0 . Oy vSu 
-0.0 7342 
-0.07Yy4 
-0.0b2o4 
-0. 0£«do 

-0. 0869 J 
-0 . 08640 

-0.3U630 

- 0 • 0b34 3 
-0. ObJ 79 

0 . O 6 1 2 7 

-0,077 7*3 

- 0.073 14 
-O.Oy/tO 
-0 .Uvl 04 
-0 .01^398 

- 0 . 0 4 6 .1 

-U.030?2 
-O.Oil 94 
-0.02300 


0.97686 
0.98148 
0 .**8060 
0.V7608 
0,97719 
0 . 9 7 'j 4 9 
O. 97098 
0. 96339 
0.94 7bb 
0.91 809 
O.U 7633 

0.023-34 
0. 77351 
0. 72909 
0.68909 
0.05503 

0 . 624 94 
0 . 39963 
0.37777 
0.b*3b24 
0.54025 
0 . 02&6 0 
0 .51 3 7£ 
0 .' 3049 U 
0 .49946 
0 . 4 49 20 
0.8 0262 
0.561 14 
UtLSTAK 
0.0 
0.0 

0. 00000 
0 . OCOO 1 
O.0OCO5 
0.000 l2 
0.00021 
0 . OOC29 
U. 00036 
6.00043 
0.0 105 1 
0 . 00059 

O. COO«,3 
0,00062 
O.OOU99 
0.00123 
0.00151 
0 . 00 1 t5 
0.00224 
0. 00266 
O. 06315 
0 . 00 JO'j 


OCC5 
0.00001 
0.0001 3 
0 . 0002 ) 
0.00029 
0.00030 
0.00043 
C. 00030 
0.0005M 
C. 00007 
0.00079 
0.00090 
0.00 I CO 
0.001 49 
0 . 00(02 
0.00221 
0 . 0026 0 
0.JO315 
0.0030c 
0.00415 
0,004 74 
0.00531 
O.OOS 7o 
0.30588 
0. 00580 
0.00340 
0.004^ 7 

U.0C316 


0. ?4Hb2 

0 . 2 7 V 2 1 
0. (09*1? 
U . J 4 } 2 1 ' 
C. 1 7 0->8 
0.40073 
0.43067 
0. 4r J44 
0 . 4 9 0 l ) 9 


- C .0 I 720 

- 0 . C I 24 0 
• C .OOd'i I 

- y . C 05 lo 

- 0 .00 J 39 
-0 .C02.,3 

- 0 . U ) J29 

- 0 . L05>>4 
- C .0 1 C4 7 


-0.01241 
-0.0071 I 
-0.00277 
0.00242 
0 .002 JO 
0 . 00 .. 7 u 

0 . 0 J 1 6 5 
-O.OUl 42 

- 0 . 0 06 94 


O.0047J 
0.00523 
0 . C0560 
0 . 90576 
0 . 0 C 5 ca 
u . 005 J9 
0.0049J 
0 . 00420 
0. 00340 


C07 = 9.90 7*8 3 

NO 0P*-LK ALL atl*A7AriUN UtPLWt 


U.460C0 


ThFI a 

0.0000 I 
0,00007 
b .00012 
O , 000 I 7 
0,00021 
0*00075 
O . OOO 30 
0,00034 
0,00039 
0 , 00046 
0 > 00055 
6 .00066 
O.C0094 
0,00102 
0 * 001 23 
O . COl 46 
0.001 72 
0 . 001 9a 
0.0U22S 
0,00254 
0.00264 
O . OO J I 4 
0,00340 
0 . 033o2 
0.00377 
0,0-13bU 
O . Ui33 76 
0.607BI 


SbR 

- 0.00000 
- 0.00000 
0.00001 
0,00001 
0.00001 
0,00002 
o.oooos 
0,0001 I 
0.-)002o 
0.00051 
O.OOOUo 

0.00144 
0,00160 
0.-)0I97 
0,00208 
0 .00222 
0.0022-1 
0,00240 
0.00253 
O ,00258 
0.00247 
0.00212 
0.00155 
0*00067 
-0.00037 
- 0-0061 I 
-0.01 67o 


0.90427 
t . 7B243 
1.74496 
1 . 72590 
1 .71315 
I . 70517 
I .0991 t 
1 .69683 
1.70275 
I .71805 
1 .74244 

I .76346 

1 .77 328 
I , 76474 
I ,79958 
1 .824 1 5 
1 .83561 
1.63148 
1.84576 
I .86 72 I 
I .870/9 
I - 82602 
1.72612 
I .60312 
I .45)14 
I . 30921 
I . 3 1 *>0 i 
I . 12235 


PI 

-0.0U294 
0 • OOCoO 
O.Ol 190 
0.00574 
0.01401 
0. 04544 
0. 08937 
0.23219 
0* 55o66 
1 . 14462 
2.06364 
S .->43S3 
3. 7o5oA 
4.80806 

5.81 726 
7.499 I 4 
7. dO/eb 
8.56462 
9.98870 

I I . 324 96 

1 1.39692 
e. 86338 
6. 45 3 I 7 

2.81 727 
0.09675 

-0 . 88S23 

- 1 . 30000 

- 1 . 50000 


TAU 


12 0.00192 

13 0.00160 

12 0.00148 

I I 0.00140 

I 1 0.00134 

I 0 0.00130 

I 0 0.C0I2S 

B 0.00119 
10 0,00111 
12 0.00101 

14 0.00039 

1 * o . oooa 0 

1 5 0.000 73 

15 0,00066 

15 0,00061 
lA 0.0<70S4 

16 0.00053 

15 O. 00050 
to 0.00046 

1 7 O.OU043 

1 6 0 .0004 2 

1 2 a .00046 

I 0 0.00058 

I I 0.00070 

14 0.00094 

13 0.00113 

12 0.00143 
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Sample Case No. 2 - Airfoil Analysis with Viscous Interaction 


SAMPLE 

CASE NG. ?- 

-KCRK AIRFCIL 75-06- 

12 T WO GR 

ID HALVINGS 

; ONLY 


£F INP 

M=0. 752. RN= 

20. 95E+C6 

,£ END 





& I INP 

A t 

ITACT=1 • &ENC 







C 1 

0.0 

0.00074 

0 .OOOC3 

C . C0399 

0.00056 

0. 0071 7 

0,00171 

0,01015 

0.00365 

0.01296 

.00640 

0 .0 1573 

0.00993 

0 .01852 

0.0141 5 

C. C2133 

0.01906 

0. 02415 

C. 02461 

0.02696 

0.03080 

0 .02973 

0.03761 

C ,03245 

0 .04503 

0.03510 

0 .05304 

0. C3766 

0.06163 

0 . C4 C09 

0 . 0 70 80 

0. C4237 

0. 05057 

0.04444 

0. 091 01 

G .C4629 

0 .1 C215 

0 .04800 

0 . 1 1398- 

0.04963 

0 . 12642 

0.05116 

0.13946 

C. 05266 

0. 1 630 6 

C . C5408 

0.16720 

0 .05543 

0.18183 

0.05670 

0 .19694 

0 .05791 

0.21251 

0, C5903 

0.22850 

C. 06007 

0 . 24488 

0. 061 C4 

C. 27873 

0 .06271 

0.31385 

0 .06403 

0.35000 

C .06499 

0 .33695 

0.06556 

0 ,42446 

C.C6575 

C. 46229 

C. 06553 

0.50C19 

C . 06489 

0.53793 

0.06379 

0.57526 

0 .06219 

0,61198 

C .060 0 3 

0.64797 

C, C5727 

0 .68302 

0. 0539C 

0.7171C 

0. C4996 

C. 75007 

0 .04552 

0.781 79 

0.04069 

0 . 81214 

0 .03558 

0.R4096 

0 .030 32 

0.86810 

C. 02508 

0.89338 

C. 02 003 

0. 91660 

0.01533 

0. 93749 

0 .c n 1 4 

0.95580 

0 .00759 

0 .96390 

0 .00 607 

0 .97125 

0 .00472 

0 .97783 

G . C0365 

0. 98360 

C. CC256 

0. 98854 

0. CO 1 75 

0. 99262 

0 . OC 1 09 

0 .995 82 

0 .000 60 

0.9961 3 

0 .00026 

0 .99953 

C. C0C06 

1 .00000 

0. ooooo 







0.0 

C 1 

1 .0 

o 

• 

o 

0 .0 





^ 1 

0 . 00000 

0 . 0C074 

0.00049 

-C. 00240 

0. OC 1 66 

-0. C0538 

0.00351 

-C .0 0 827 

0. 00605 

-0 .01 105 

0 ,00932 

-0 .01 370 

0,01336 

-0 .01626 

0,01814 

-0. 01877 

0.02366 

-0. C2 1 22 

0. 0 20 8 7 

-0.02364 

0. C3676 

-0 .02602 

0 .044 3 1 

-0 .0 2 834 

0 .05250 

-0 ,03061 

0.C7074 

-0.03491 

0.091 34 

-0. 03886 

0. 1 142C 

-0. 04237 

0. 1 3920 

— 0, 045 3 8 

C.l 6622 

-0 .04789 

0 .19512 

-0 .04978 

0.22574 

-0.051 12 

C .25793 

-0.05186 

0.27456 

-0. C52C0 

0. 30873 

-0. 05181 

0.34401 

-0 .05097 

0.36020 

-0 ,04946 

0.41714 

-0 .04726 

0.45467 

-0 .044 36 

0.49263 

-C. 04077 

0.53091 

-0. 03653 

0 . 5 69 .3 7 

-0. C31 68 

0.60792 

-0 ,02634 

0 .64646 

-0 .0 20 65 

0 .68491 

-0 .0 1 485 

0 .72309 

-0.00930 

0,74198 

-0.-r0675 

0. 7 6068 

-0.00442 

C. 79713 

-0 . C0C59 

C.831 77 

0 .0C2''6 

0 .86398 

C .00362 

0.89331 

0 .00428 

0 .90679 

0. 00435 

0.91943 

C. CC427 

0.93122 

C. 00407 

0.9521 2 

0 .00342 

0.96934 

0.00255 

0 .98278 

0 .OC 1 63 

0.99237 

0. 00080 

C. 99572 

C, C0047 

0.99810 

0. 00C22 

0.9995 3 

O.COOC6 

1 . OCOCC 

0 .00000 



o 

• 

o 

-1 .0 

0 .0 

O 

• 

o 






SAMPLE CASE NO. 2 KORN AIRFOIL 75-06-12 TkO GRID HALVINGS ONLY 


X-V GRtO SYSTEM 


2 -0.I410E 01 
e 0.1247E <70 
Z >0.4261E 00 


3 -0.4900E 00 
9 O.240SE OO 
3 -0.1420E OO 


4 -0.3706E 00 
10 0.3 706E OO 

4 -0.2303E-07 


S -0.24a5E 00 
1 I 0.4900E OO 
5 0.142OE 00 


6 -0.1247E 00 
12 0.14I0E Ol 
6 0.420 IE 00 


MACH NO. IS 0.7S2 ANGLE OF ATTACK IS 0.0 DEGREES 
DIRECT SOLUTION TO 0.50 

CASE NUMBER lOo 


INVISCIO ANALYSIS CASE 
VITH VtSCCLS INTERACTION 
&FINP 

Mb 0.7S199997 • W= 1.699999Q >X1b O.SOOOOOOO .X2= 10000.000 «ALP= 

0.3999999B .X4» 0.48999995 «S4= 2.0000000 .CQNVs 0.99999997E-0S .Al= 

RN= 209SOOOO. «XieOLYs-Q, 44000000 .CIR= 0.0 .COCORR^ 0.0 

SP= 0.39999969E-02.XSEPS 0.44000000 .RCP0= 0.19999999 .CP8= 0.39999998 

0.99999964E-C 1 
OEND 
CllNP 


IHAXb I3.JHAX- 

0. ISKP3S 


7.IKASEB 
0. lSKP4a 


tOO.lNV- 
0 .1 TERPs 


0. MITERS 
0. IREAD= 


0 


LEND 


0.0 .EPSs 0.0 «CPSS= 

0.24S99999 . A2= 0.14999998 .A3= 3.8699999 

.RDELb 0.25000000 .RDELPNb 0.12500000 
.XMONB 0.46999997 .XLSEPs O.SOOOOOOO .XPC 


800.NHALF= 2»1TACTb 

O.LPs 1000 . t TEUPCs 


1 . ISKP2 
0 • I TELKCs 


-0.49000 
-0. 370S8 
-O. 248S2 
-0. 12470 
0.0 

O. 12470 
0. 248S2 
0.37058 
0.49000 
I TER AT ION 
1 TERATION 
I TERATION 
I TjERATlDN 
I TER AT [ON 


YU 

0.01857 
C .CS 153 
0 .C6 140 
0.C6S42 
0 .C6489 
0.CS913 
0.04574 
C .02459 
O.OOISI 
10 CIR 8 
20 ClR = 
30 CJR = 
40 CIR = 
SO CIR = 


AIRFOIL COORDINATES 
YL UPPER SLOPE LCVER SLOPE 

0.71672 -0.67986 

0. I 16 IS 
0. 0532S 
0.01340 
-0.02273 
-0.07384 
-O. 1429S 
-0. 19774 
-0.16299 


-0.01417 
-0.04429 
-0.051 76 
-0.0497Q 

-0.04000 
-0.02390 
-0.00591 
0.00383 
0.00102 
0.09421 0PM 
0.12328 OPM 
0.1442S OPM 
0.16120 DPH 
0. 1 754 0 OPM 


= 0 

S 0 


-0.1 1678 
-0.01692 
0.04823 
0.1 0586 
0. 14744 
0.1 2644 
0.02909 
-0.09073 
•003894SI AT A 
.00239694 AT 12 
.00196538 AT 10 
.00168639 AT lO 
.00143486 AT to 


CP BY CENTRAL DIFFERENCES 


-0.490 
-0,371 
-0.249 
-0.125 
0.0 
0. 125 
0.249 
0.371 
0.490 
1.410 

X ' 

-0.49000 
-0.37058 
-0.24852 
-0. 12470 
0.0 

0 . 12470 
0 . 24852 
0.370S8 
0.49000 
74 73 72 74 


O.OOi 

-0,947 

-0.722 

-0.679 

-0.705 
-0.659 
-0 .444 
-0.083 
0.S70 
0.031 
J 

0.01857 

C.0S153 

0.06140 

0.06542 

0.06489 

C.0S9I3 

0.04574 

0.02459 

0.00151 


0 7175 
0101 E5 
0101 90 

0101 93 

0102 93 
O 99 £9 
0 90 £4 
0 79 78 
O 58 6£ 


68 62 
80 95 
83 97 
83 92 
80 85 
76 77 

73 69 
70 *5 
5S 49 

74 73 73 74 74 


CPL 
0.280 
-0.791 
-0.692 
-0.S29 
-0.324 
-0. 047 
0.238 
0.376 
0.6SI 
0.030 
YL 

-0.01417 
-0.04429 
-O. 08 1 76 
-0. 04 970 
-0.04000 
-0.02390 
-0.00591 
0.00383 
0.00102 


SLU 

0.71872 

0.11615 

0.0S32S 

0.01340 

-0.02273 

-0.07384 

-0.14295 

-0.19774 

-0.16299 


SLL 

-0.67988 
-Q. 1 1 678 
-C.OJ 692 
O. 04823 
O. 10586 
C. 14744 
0. 12644 
0. 02909 
-0. 09073 


3 NSSP 
3 NSSP 
3 NSSP 
3 NSSP 
3 NSSP 


0 OELTAV OR OELSTAR • 0.0 

1 DELTAV OR OELSTAR = 0.0 

3 OELTAY OR OELSTAR = 0.0 

4 OELTAV OR OELSTAR b 0.0 

4 OELTAV OR OELSTAR = 0.0 


100 








eA^e AtNAbib bkb c«ib MALbiMb* oM.y ■ 



X-*V «Mlb STS^tM 


Z -••M72C t1 3 -b«i«lAE •! 4 •0«ft«7ie M 9 -b*4«4«£ *0 

9 -A^AoMC «0 • *0*34«&e 00 aO -0«IM0C OO ti «0Ai047C 00 

14 e«*.t4oe^oa is o«aS47e oo ao o.ioooc oo at o«S40sc oo 

CO 6*4Se7e 00 ii 0«4900£ 00 02 040471C 00 23 0*a4IOE oa 

i «>a«oiaiE Oo j '^o«42oae Oo 4 «0424ooe oo s -o«i«ooe oo 

o o*«Sve^ei 0 o«aOcoe do ao o.caooe oo aa o«42oac oo 

OAC^ Nd« ts 0«tSC ANCkC ATtAdK iS O4O OCGOeCS 
OIOeCT SOLbtilM TO 0«S0 

CASE MUMOEM aOO 

lOVlsciO Ahaltsis Case 
O lTH Vlicccs IMTEOACTIOM 
Sf>lNI» 

H> o*Tsa0oo«7 •»« a. *999090 «Aa* o.obOoooeo ioooo«ooo .alo* o.o «eos> o*o .cass« 

0«39990990 •A4« 0«4099999S •S«> C.OCOOOOO «CONV« 0.9«999097E->09«A1« 0»24999O99 *A2« 0.1499999S .A3« 3,0699999 

OM* 20900000. .XtOOLYA-O.AAOOOOOO .CIR*t O.ITOaoIOS .COCOIM* 0.0 «0DCL> 0.20000000 .ROEL'NS 0.12000000 . 

9Pm 0.3999090«C-OCtXSeO« 0.44000000 .ACA^ 0.19999999 .CAS* 0.39999900 .AHOl* 0.40999997 »X(.SEA« 0.00000000 .XPC* 
O.99999904E.>Ol 
OCMO 
ZitNP 

IMAXA CS.JMAXa 13.1MA9C* lOO.lRVa O.MITGA> 400.NHA4.9 b 2.ITACTb 1.|SKP2s 

04lSCb3b 0«tSKA44 O.ITCRP* 0«aPCA|>B O.CP* 1000*ITCUPC« O.ITCLIiCs 

0 

CENO 

AlN^OlL COOPDlNAtCS 

X YU YL UPPfes SC09C L^iZ SU3P^ 

•*o« 49 ooo o.oadsr -o.oiait o.caota *^o.*79so 

->0.43b*^ 0.O42O3 -.O.OSaAI O.CS40S O0.21S94 

^e.370sa 0.09193 -0.04429 0.11*19 •>0.11*79 

‘^0.30902 O.OSfJO -0.04991 0.0^904 •>0.09739 

-0.24092 O.C0140 -0.0917* 0.09329 -0.01*92 

■>0.lO*77 0. 0*401 -0.09174 0.03230 O.OlTOO 

-0^12470 0.06942 -0.04970 0.01340 0.O4O23 

•>0.06240 0.-O4972 -0.04576 -0.004|* O.OtOOO 

0.0 0.06409 -0.04000 -0.02273 O.IOSOO 

0.06240 QiC«2*0 -b.032*0 -0.04900 0.13097 

0.12470 0.C99I3 -0.02390 -0.07304 0.14744 

0.10*77 O.C9390 -0.01497 -0.10OO7 «. 14*44 

0.24092 0.04974 -0.00991 -0.142O9 0.12044 

0.30O02 0.03999 o.eeeso -0.17403 0.00037 

0.37090 O.odos* 0.00303 -0.19774 0.02909 

0.430O7 0. 01290 0.00400 -0.19*09 -0.02130 

0.49000 0.00191 0^00102 -0.1*299 -0.0*073 


1 teraYIon 

10 

CtR 


0.10902 

ORK 


0.0020*490 

AT 

12 


HSSP 


19 

oEt. Tat 

OR 

OELS7AR 


0.0 

iTCPATlON 

20 

CIR 


0.19992 

OPH 


0.00099 790 

AT 

24 


NS9P 


17 

oeltav 

OR 

0EL9TAR 

a 

0.0 

IT2RA740N 

30 

CIR 


0.20930 

DPR 


0.00007319 

AT 

24 


N9SP 


17 

OELTAV 

OR 

OCLSTAR 

» 

0.0 

ItCNAtlbN 

40 

CIR 


0.21349 

0PM 


0.00076777 

AT 

24 


M9SP 


IT 

oeltay 

OR 

OELSTAII 


0.0 

irePATION 

90 

CJR 


0.22063 

OPM 


0.000702*0 

AT 

22 


NSSP 


17 

OCCTAV 

OR 

OCLSTAR 


0.0 

arcRATtOM 

40 

CtR 


0,2191 7 

OPH 


O.OOOOtllS 

AT 

IS 


NSSP 


16 

DElTAV 

Oh 

OELSTAA 


o.eosr 

1 TCHATION 

To 

CiR 


0.21002 

OPH 


Q*Q004*03i 

AT 

19 


NSSP 


IS 

OCltat 

OR 

OELSTAR 


0.0077 

IteoatIon 

00 

CIR 


0.21730 

0pm 


0. 00039730 

AT 

19 


NSSP 


19 

DECTAT 

OR 

OCLSTAR 


0.0086 

iteration 

90 

CIR 


0.21700 

OPH 


0.0002700* 

At 

IS 


NSSP 


14 

OCUTAT 

OR 

OCLSTAR 


0.009S 

ITCRaTJON 

100 

CIR 


0.21704 

OPM 


0.00022107 

AT 

19 


NSSP 


14 

OELTAY 

ON 

OCLSTAR 


0.00*6 

afERAtaoH 

110 

CIR 


O. 21 T 34 

OHM 


0.0*010233 

At 

19 


NSSP 


16 

eCLTAV 

OR 

bCLSTAR 


0.0101 

ITERATION 

120 

CIR 


0.21701 

DiNI 


0.0001*372 

At 

19 

* NiSP 


14 

OELTAY 

Oft 

OCLSTAR 


0.0102 

iteration 

130 

CIR 


O.E1037 

OPM 


0*00013200 

AT 

1* 


NSSP 


14 

OELTAY 

Oft 

OCLSTAR 


0.0103 

iTERAtlON 

140 

CIR 


0.21000 

OPM 


O.0OOI17OO 

AT 

U 


NSSP 


14 

OELTAY 

OR 

bCLSTAA 


0.0103 

ITERATION 

190 

CIR 


0.2I90S 

OEM 


O.000IO470 

AT 

1* 


NSSP 


14 

OELTaV 

OR 

OELSTAft 


0.0104 

ITERAtlON 

too 

CIR 


0.2C029 

OPH 


0.000004*0 

AT 

IT 


NSSP 


14 

osltAv 

Oft 

OCLSTAR 


0.0106 

ITERATION 

170 

CIR 


0.22092 

oPm 


o.oooootei 

At 

IT 


NSSP 


14 

oclTav 

Oft 

bCLSTAR 


0.0104 

trCRAriON 

100 

CIR 


0.22I9E 

OPH 


*.eeoo#*39 

AT 

10 


NSSP 


|4 

OfiLTAT 

OR 

OCLSTAR 


0.0i04 

iteration 

190 

CIR 


0 .2221.0 

OPM 


0 . 00*0 7300 

AT 

10 


NSSP 


14 

OCLTAT 

OR 

OELSrAR 


0.0106 

liERATION 

200 

CIR 


0.222*4 

OPM 


0.0*00*717 

AT 

10 

« M99P 


14 

OELTAY 

Oft 

OELSTAft 


0*0104 

iteration 

210 

CIR 


0.22314 

OPM 



AT 

I* 


NSSP 


14 

OELTAY 

OR 

OCLSTAR 


0.0104 

iteration 

220 

CIR 


0 .2t2lftl 

OHM 


0 *00009734 

AT 

at 


NSSP 


14 

OELTAY 

Oft 

bCLStAR 


0.0104 

ITERATION 

2 io 

ClR 


0.22409 

OPH 


0.00000309 

AT 

to 


NSSP 


14 

oeltay 

Oft 

dElstar 


0.0104 

ITERATION 

240 

CIR 


01 2244 9 

OPM 


*.00004909 

aT 

10 


NSSP 


14 

OELTAY 

Oft 

OCLSTAR 


0.0104 

iteration 

ISO 

CIR 


0.22403 

OPM 


0.00004930 

AT 

1 * 


NSSP 


14 

OELTAV 

on 

OCLSTAR 


0.0104 

CtcratiOn 

2*0 

cap 


0.22010 

OPH 


0.00004IVO 

At 

10 


NSSP 


14 

OELTAV 

CM 

OELSTAR 


e.ea04 

ITEOATION 

27o 

ClR 


O.C2990 

OPM 


0.00003*02 

AT 

10 


NSSP 


14 

oelTat 

OR 

OCLSTAR 


0.0104 

iteration 

soo 

ClR 


0.22900 

OPM 


0. *00* 397* 

AT 

10 


NSSP 


14 

OElTAV 

JM 

OCLSTAR 


0.0104 

ItfOATlON E90 

CIR 


0.22007 

OPM 


0.00003302 

AT 

24 


NSSP 


14 

oclTat 

OR 

OCLSTAR 


0.0104 

Iteration 

SiO 

ClR 


0.22*33 

OPM 


0«00003092 

AT 

10 


NSSP 


14 

OCLTAT 

OR 

OCLSTAR 


0.0104 

ITCRATION 

3to 

CIR 


0.22*9* 

OPM 


0.00*02029 

AT 

10 


NSSP 


1* 

OELTAT 

CM 

OELSTAR 


o.eiOA 

IfiOATCON 

oEo ciR 


0.22*70 

OPH 


O.O0OO2O1 1 

AT 

1* 


NSSP 


14 

OEltay 

Oft 

OCLSTAR 


0.0104 

ITERATION 

330 

CIR 


0.22690 

OPH 


0.OOOO2414 

AT 

1* 


NSSP 


14 

dcltat 

Oft 

OCLSTAR 


0*0104 

ITERATION 

340 

CIR 


0.2271* 

OPM 


0.00002217 

At 

10 


NSSP 


14 

OELTAY 

OR 

OCLSTAR 


0.01*4 

iteration 

390 

ClR 


0.22733 

OPM 


O.0OOO2122 

AT 

22 


NSSP 


14 

OElTAT 

Oft 

OCLSTAR 


0.0104 

ItCRATlON 

3*0 

ClR 


0.2274* 

OPM 


0.00001907 

AT 

17 


NSSP 


14 

OCLTAT 

OR 

OELSTAR 


0.0104 

1 teration 

370 

CIR 


0.227*4 

OPH 


0.00001792 

AT 

19 


NSSP 


14 

oEltat 

OR 

OELSTAft 


0.0104 

iteration 

300 ^IR 


0.22777 

OPm 


o.oOooiao* 

AT 

1* 


NSSP 


14 

OELTAV 

CR 

OCLSTAR 


0.0104 

iteration 

300 

CIR 


0.22700 

OPP 


0.000*1974 

AT 

22 


NSSP 


14 

OEltat 

OR 

OELSTAA 


0.0104 

1 TErATiON 

400 

CIR 


0*22001 

OPM 


0.00001377 

At 

1* 


NSSP 


14 

OELTAY 

Oft 

OELSTAR 


6.0104 


« -0.43o7E 00 7 -0.3709C 00 

12 -o»«24oe-ea 13 e.o 

a* 0.3090C 00 ao 0.370*E 00 

24 0.3e72E 01 

O -0.OS92E-O1 7 -0.O2l3e-07 

12 e.OlOlE 00 
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■ogNOARv LAVcn ANA^vaifi nevNOkos HMNBftN op •*tioc •< 


X VUCMU eu 

91.U ycoaig . h . 

Hv 


o»9ifar 

*«• 

0,71972 

tO*9I4IT’ 

*.* 

•9,97*00 

-p,«3aa7 

6,e«2*9 ' 

9,oa*a* 

0,177*0 

•*•939*1 

*,009*7 

•*,17**0 

>D»3T0SC 

9**«I99 

*,00021 

0.13*1? 

•9,*A62« 

9,*0*lf 

•0,13127 

<-e.30Ma 

4.9V9* 

*,9*a90 

9t97*M 

•0,96991 

0,90053 

•9,0*709 

>0.2AM« 

0«*«IA9 

o.ofbf* 

0,0*«1« 

•0,9«|7« 

*f09*A7 

•9,02*20 

fO. 1*677 

0.0«6*» 

0,999*3 

0,033*0 

•0,95174 

•0.00092 

0.0160* 

tfO« 12 A 7 * 

0«969A< 

0,9*976 

0,01579 

•9^*407* 

0,*007* 

0.0453* 

>o«e*2«o 

0'.*6*72 

OaOOOOO 

•9,00212 

•9,04^7*- 

o-;ooo*o 

9,97403 

9*0 

9.06A** 

O.OOIOI 

• 0,92*M 

•0,949*9 

0^00^22 

0,1915* 

9«062A0 

0f0*9«« 

0*991 I* 

•0,0422* 

• 0.93200 

0,00155 

9.12413 

.9«t2A7C 

9«e*ti2' 

9,9013* 

•0.t*9?S 

•9,923*9 

9,091*9 

0,13*29 

0.1*677 

0«09269 

0,00170 

•0.10170 

-9,91457 

9.00253 • 

0,|4990 

0.2*9S2 

0.0A97* 

0,00217 

-rO,lJ320 

•0,09091 

0,00393 

■ 9.-11930 

O.spas* 

o,*9a*« 

9fO0291 

•0,19907 

0,0995* 

0,49333 

0,97761 

0«9709A 

0.*2A*9 

q,00«3* 

•*.159*1 

9,09303 

9,99343 

9,020*2 

0flA3067 

0,91290 

0,00742 

•0,14217 

9,00400 

9,003*2 

•0.0220* 

O.A«09« 

0,091*1 

9,01040 

-.0,12734 

0,99102 

0,90341 

•0,90949 


cm av CENTAAI. OlFPEpaNgea 


X CPU CPL 


•0,490 

-6.0*3 

0,399 



•0.431 

•9,71* 

-9*271 



-0*371 

-0.654 

-0,391 



-0.310 

-0,715 

-0.437 



-0.240 

-0*703 

-9*421 



-0.107 

-0,690 

•9,396 



-0,125 

•0,099 

-0,345 



-0.062 

-9,702 

•0,276 



0.0 

-0,703 

-0. 106 



0.062 

-0.697 

•0,000 



0. 12s 

-0,641 

0.030 



0.107 

-0.524 

0. 163 



0.24* 

-0,3*0 

0*273 



0.310 

-0.210 

0, J42 



0.371 

-0,045 

0.369 



0.431 

0.065 

*.361 



0.490 

0,243 

0,371 



0.647 

0.003 

0,003 



1 .410 

0.023 

0.023 



3.672 

0,003 

0.003 



X 7U 

71. 

SLU 

21-U 

-0,49000 

0.01057 

-0,01417 

0.71072 

•0*67966 

-0.43067 

0,04211 

-0.03460 

0,17769 

•0, 17090 

•0.3705* 

0,05174 

-0,Q4««a 

0*1301? 

•0,13127 

-e. 30962 

0.457T4 

-0.0*903 

0.07040 

•0.067*6 

-0.24852 

0.06190 

-9.05224 

0,95615 

-0,02 020 

-0. 10677 

e,04464 

-0.05236 

9,03399 

0.01400 

-0,12470 

0,06616 

-0.05 049 

0*01579 

0.04534 

-0.06240 

0.06660 

-0.04674 

-0,00212 

0.07463 

0.0 

0*06500 

-0.04123 

•9,02054 

0. 10156 

0.06240 

9,04397 

-0.03416 

-0.04229 

0,12413 

0.12470 

0,06051 

-0.02591 

-0.06979 

0,13*2* 

0. 10677 

0*05521 

-0.01712 

-0.10175 

0,14060 

0.24892 

0.04793 

-0.00096 

-0*13320 

0,11936 

0.30962 

0.03094 

-0.00205 

-0.15907 

0*077*1 

0 .37090 

4.02904 

0.00040 

-0. 15961 

0,02962 

0.43067 

0.01999 

0.00666 

-0.14217 

•0«Q2264 

0.49000 

0.01199 

-0.00240 

-0.12734 

• 0.90046 

74 74 74 74 

74 74 75 

75 75 75 

75 


74 73 73 73 

73 73 73 

73 73 74 

75 


73 71 70 69 

67 44 6a 

71 73 74 

77 


73 72 60 62 

50 0 75 

76 60 63 

•3 


74 75 75 77 

ft 0 90 

90 66 04 

01 


74 70 79 93 

C7 0101 

96 91 97 

02 


74 79 02 06 

92 0105100 05 00 

S3 


74 70 93 07 

C2 OlOSIOl 97 91 

03 


74 79 03 07 

91 0104101 90 92 

04 


74 70 02 05 

00 0 0102 90 93 

0* 


74 77 00 93 

<5 0 0102 00 93 

04 


74 76 7* 99 

02 0105102 90 93 

04 


74 75 76 77 

70 0104101 97 91 

*4 


74 74 73 73 

73 0102 

90 94 96 

*3 


73 72 71 70 

09 0 96 

93 90 07 

*2 


73 71 60 47 

05 0 90 

00 97 <5 

02 


73 79 09 66 

«3 0 03 

■3 93 92 

*l 


73 70 07 65 

C2 0 77 

7* *0 00 

00 


7t 70 67 69 

C3 0 73 

7* 77 79 

7* 


71 67 64 61 

60 0 66 

Tl 75 70 

01 


72 71 71 71 

71 71 72 

73 74 75 

76 


74 74 74 74 

74 74 74 

74 74 74 

75 


74 74 75 75 

75 75 75 

75 75 75 

75 



HAVE CO 


OfOagTsa 


CHART lOO 
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SAMPLE CASE NC* 2->-K0RN AIRFOIL 7S-M-12 TMO GRID HALVINGS ONLY 


X-V GRID SYSTEM 


2 -0.0027E 01 
8 >0.9SI7E 00 
14 -0«3403E 00 
20 -O.ISSBE 00 
26 0«312lE-Ct 

32 0.2177E 00 

38 0.4007E 00 

44 0.9115E 00 

2 -0.1869E 01 
e -0.1088E 00 
14 0.3239E-01 

20 0.3206E 00 

MACH NO. 


3 -0.3872E 01 
9 -0.4900E 00 
15 -0.3098E 00 
21 -0.1247E 00 
27 0.6240E-01 

33 0.248SE 00 

39 0.4307E 00 

45 0.1410E 01 

3 -0.9> 81E 00 
9 -O. I420E OO 
IS Q«6S92E->01 
21 0.4261E 00 


4 -0.2276E 01 
10 <'0«4604e 00 
18 -0.2792E OO 
22 ->0.93S7E-01 
28 0.93S7E-0I 

34 0.2792E 00 

40 0.4604E 00 

48 0.2278E 01 

4 -0.5939E OO 
lO -O. 10I9E 00 
16 0.1019E 00 

22 0.S939E 00 


9 -0.1410E 01 
1 1 •0.4307C 00 
17 -0.24896 OO 
23 -0.6240E-O1 
29 O. 12476 OO 
39 0.3098E OO 

41 0.49006 OO 

47 0.3872E 01 

5 -0.42816 OO 
II -0.6592E-01 
17 0.14206 OO 

23 0.91816 OO 


ft -0.91156 00 
12 -0.40OTE 00 
le -0.2I77C 00 
24 -0.31216-01 
30 0.1390E 00 

3ft 0.34036 00 
42 0.93176 00 

40 0.80276 01 

ft -0.320*6 OO 
12 -0.3239E-01 
18 O.lOaSE 00 
24 0.18896 01 


7 -0.64716 00 
13 -0.37066 00 
to -0.186BE 00 
25 0.0 

31 0.18686 00 
37 0.3706E 00 
43 0.64716 00 

7 -0.24606 00 
13 -0.9213E-07 
19 0.2460E 00 


IS 0.7S2 ANCLE OF ATTACK IS 0.0 DECREES 
DIRECT SOLUTION TO 0.50 

CASE NUMBER too 


INVISCIO ANALYSIS CASE 
■ITH VISCCLS INTERACTION 
CF INP 

Ms 0.7SI99997 *W= 1.6999990 *Kls O.SOOOOOOO *X2s 

0.39999998 .X4= 0.48999995 .S4s: 2.0000000 .CQNVs 

RN3 20950000. .XlBOLVs-0. 44000000 «CIRa 0.2280I3S2 

SPs 0 . 39999969E-02. XSEP=: 0.44000000 .RCPBs 0.19999999 
0.99999964E-01 
tENO 
t I INP 

1MAX= 49.JMAXS 25.1KASE* lOO.iNVs 

0.ISKP3S 0.1SKP4A O.lTERPs 

0 

CENO 


10000.000 .ALPS 

0.9999 999 7E-OS.A1S 
«COCORR= 0.0 
•CPBs 0.39999998 


•O *EPS= 0.0 .EPSSs 

•24999999 .A2s 0.14999998 .A3= '3.8699999 

•RDEL« 0.29000000 .RDELFNs 0.12500000 
.XMOr^ 0.46999997 .XLSEPs O.SOOOOOOO .XPC 


O. MITERS 
0. IRE AOs 


200.NHALFS 2. I TACTS 

O.LPs 1000.1 TEUPCs 


1 • ISKP2 
0 . 1 TEL9CS 


X 

-0.49000 
-O. 46044 

-0.43067 
-0.40072 
-0.37QS6 
-0.34028 
-0.30982 
-0.27923 
-0.24852 
-0.21769 
-0. I 8677 
-0.1 5577 
-0.12470 
-0,09357 
-0. 06240 
-0.03121 
0.0 

0.03121 
0.06240 
0. 093S7 


YU 

0 .01657 
0.03318 
0 .0421 1 
0.04692 
0.05174 
0.06474 
0.05774 

o.csse2 
0.06190 
0.C6327 
0.06464 
0 .0654 1 
0.06616 
0.06639 
0 .06660 
0.0662S 
0 .06590 
0 .06494 
0.C6397 
0.06224 


AIRFOIL COORDINATES 


YL 

-0.01417 
-0.02691 
-0.03468 
-0.039S8 
-0.04448 
-0.04716 
-0.04983 
-0.0S103 
-0.0S224 
-0.05230 
-0.05236 
-0.0S142 
-0.0S069 
-0.04B6I 
-0.046 74 
-0.04398 
-0.04123 
-0.03769 
-0.03416 
-0.03003 


UPPER SLOPE 
0.71872 - 

0.36638 - 

0.17769 - 

0.19391 - 

0.13012 - 

0.10430 ' 

0.07848 
0.06731 
0.0S61S - 

0.04906 - 

0.03398 
0.02484 
0.01570 
0.00079 
- 0.00212 
-0.01 1 33 
-0.02054 
-0.03142 
-0.04229 
-O. 0S602 


LOVER SLOPE 

0.67988 

0.3 11 17 

0.17098 

0.15113 

0.13127 

0.09446 

0.05765 

0.03693 

0.02020 

0.00270 

0.01480 

0.03007 

0.04534 

0.05999 

0.07463 

0.08809 

0.10156 

0.1 1284 

0.12413 

0 .1 3169 


0. 12470 
0.15577 
0.16677 
0.21 769 
0.24852 
0.27923 
0.30982 
0.34028 
0.37056 
0.40072 
0.43067 
0.46044 
0.49000 
I TERATI ON 
ITERATION 
ITERATION 
ITERATION 
ITERATION 
ITERATION 
ITERATION 
I TERATION 
I TERATION 
ITERATION 
1 TERATION 
ITERATION 
1 TERATION 
I TERATION 
I TERATION 
I TERATION 
I TERATION 
ITERATION 
ITERATION 
1 TERATION 


O.OftOSl 
0.09766 
O.C5S20 
0.05197 
0.04793 
0.04344 
0 .03894 
0.03399 
0.02904 
O .02451 
0.01999 
0.01S99 
0.01199 
lO C2R = 
20 CIR = 
30 CIR s 
40 CIR = 
50 CIR = 
60 CIR s 
70 CIR s 
80 CIR = 
90 CIR s 
100 CIR = 
110 CIR s 
120 CIR s 
130 CJR = 
140 CIR s 
ISO CIR = 
160 CIR = 
170 CIR s 
180 CIR s 
190 CIR = 
200 CIR s 


-0.02S91 
- 0 . 021 52 
-0.01 712 
-0.01304 
-0.00696 -0. 

-0.00590 -O. 

-O.0028S -0. 

-0.00122 -O. 

0.00040 -O. 

0.00053 -O, 

0.00066 -0. 
-0.00087 -0. 

-0.00240 -0. 

0.22783 OPM * 
0 .22797 OPM s 
0.22812 OPM = 
0.22824 OPM a 
0.22834 OPM s 
0.22724 OPM s 
0.22756 OPM = 
0.22719 OPM = 
0.22799 OPM s 
0.22785 OPM s 
0.22768 OPM = 
0.22799 OPM = 
0.22788 DPM = 
0.22771 OPM s 
0.22755 OPM s 
0.22741 OPM = 
0.22720 DPM = 
0.22731 OPM s 
0.22720 OPM s 
0.22709 DPM s 


06975 0.13926 

08575 0.13993 

10175 0.14060 

11746 0.12996 

13320 0.11936 

14614 0.09049 

15907 0.07761 

15944 0.09362 

IS961 0.02962 

15099 0.00339 

14217 -0.02204 

13475 -0.09166 

12734 -0.08048 

0.00033033 AT 
0.00007644 AT 
0.00004059 AT 
0.00002819 AT 
0.00002676 AT 
0.00029546 AT 
0.00009030 AT 
0.00004906 AT 
0.00005800 AT 
0,00002313 AT 
0.00001861 AT 
0.00002056 AT 
0.00002754 AT 
0.00001436 AT 
0.00001826 AT 
0.00001S32 AT 
e.OOOOlSll AT 
0.00001040 AT 
0.00001144 AT 
0.00001460 AT 


32 

24 

37 

39 

46 
12 
14 

14 
48 

15 

47 

47 

48 
44 
48 
48 

46 
3L 
42 

47 


7 NSSP s 
24 NSSP s 
2 NSSP = 
2 NSSP s 
12 NSSP a 
15 NSSP s 
IS NSSP s 
19 NSSP s 

12 NSSP s 
19 NSSP - 

13 NSSP ■ 
13 NSSP - 

11 NSSP a 
13 NSSP a 
13 NSSP a 

12 NSSP a 

13 NSSP - 
19 NSSP a 
13 NSSP a 

7 NSSP a 


57 DEI.TAV 

58 OELTAV' 
58 OCLTAV 
58 OELTAV 
57 OELTAV 

60 OELTAV 
62 OELTAV 
62 OELTAV 

61 OELTAV 

62 OELTAV 
62 OELTAV 
62 OELTAV 
62 OELTAV 
62 OELTAV 
62 OELTAV 
62 OELTAV 
62 OELTAV 
62 OELTAV 
62 OELTAV 
62 OELTAV 


OR DELSTAR 
OR OELSTAR 
OR OELSTAR 
OR DELSTAR 
OR OELSTAR 
OR OELSTAR 
OR OELSTAR 
OR OELSTAR 
OR OELSTAR 
OR DELSTAR 
OR OELSTAR 
OR DELSTAR 
OR OELSTAR 
OR OELSTAR 
OR OELSTAR 
OR OELSTAR 
OR OELSTAR 
OR OELSTAR 
OR OELSTAR 
OR OELSTAR 


0.0104 

0.0104 

0.0104 

0.0104 

0.0104 

0.0101 

0.0094 

0.0095 

0.0089 

0.0091 

0.0092 

0.0090 

0.0092 

0.0093 

0.0093 

0.0094 

0.0094 

0.0093 

0.0094 

0.0094 



aOUMOARV LAVen analysis for revnqlos number of 


0.2I0E oa 


X YUORIG OU SLU YLORIC OL SLL 

-0<A9000 O.OIE57 0.0 0.71872 -O.OIA17 0.0 '0.87088 

-0.46044 0.03318 0.0000*1 0.36636 -0.02691 0.00001 '0.31117 

-0.43067 0.04203 O.OOOOS 0.24494 -0.03461 O.OOOOS '0.22472 

-0.40072 0.047S8 0.00012 0.1S056 -0.04017 0.00011 '0.15910 

-0.37056 0.05153 0.00021 0.11970 -0.04429 0.00019 -0.12047 

-0.34028 O.OS473 0.00030 0.09825 -0.04736 0.00026 -0.08720 

-0.30982 0.05738 0.00038 0.06150 -0.04951 0.00033 -0.06020 

-0.27923 0.05958 0.00046 0.06783 -0.0S09S 0.00040 -0.03884 

-0.24852 0.06140 0.00083 0.0SS6S -O.OS176 0.00048 -0.01937 

-0.21769 0.06286 0.00061 0.04433 -0.0S2O1 0.00055 '0.00181 

-0.16677 0.06401 0.00068 0.03446 -0.0S174 0.00062 0.01457 

-0.15577 0.06466 0.00074 0.02471 -O.OS096 0.00070 0.03026 

-0.12470 0.06542 0.00080 0.01538 -0.04970 0.00079 0.04542 

-0.09357 0.06S71 0.00086 0.00666 -0.04797 0.00086 0.06022 

-0.06240 0.06572 0.00092 -0.00227 -0.04576 0.00096 0.07466 

-0.03121 0.06545 0.00097 -0.01127 -0.04310 0.00109 0.06657 

0.0 0.06489 0.00103 -0.02074 -0.04000 0.00122 0.10139 

0.03121 0.06402 0.00110 -0.03105 -0.03649 0.00137 0.11360 

0.06240 0.06260 0.00116 -0.04234 -0.03260 0.00154 0.12447 

0.09357 0.06119 0.00127 -0.05515 -0.02638 0.00174 0.13299 

0.1247c 0.05913 0.00139 -0.06954 -0.02390 0.00198 0.13908 

0.1SS77 0.85658 0.00154 -0.08SS4 -0.01925 0.00225 0.14153 

0.18677 0.05350 0.00171 -0.10202 -0.01457 0.00256 0.13927 

0.21769 0.04989 0.00191 -0.11823 -0.01006 0.00286 0.13190 

0.24852 0.04S74 0.00217 -0.13341 -0.00591 0.00313 0.11894 

0.27923 0.04110 0.00249 -0.14692 -0.00234 0.00332 0.10064 

0.30982 0.C3599 0.00292 -0.15846 0.00050 0.00341 0.07903 

0.34026 0.03045 0.00349 -0.16610 O.C0256 0.00343 O.OSS56 

0.370Se 0.024S9 0.00424 -0.16965 0.00383 0.00338 0.03145 

0.40072 O.OieSS 0.00514 -0.17077 0.00434 0.00331 0.00710 

0.43067 0.01250 Q. 00623 -0.15510 0.00408 0.00319 -0.01580 

0.46044 0.00672 0.00779 -0.13173 0.00304 0.00301 -0.04429 

0.49000 O.OOISl 0.00933 -0.11632 0.00102 0.00282 -0.08015 

CP BY CENTR4L OlFFERENCeS 
X CPU CPL 

-0 . 490 0.197 0.443 

-0.460 -0.367 -0.059 

-0.431 -0.733 -0.229 

-0.401 -0.854 -0.345 

-0.371 -0.640 -0.400 

-0.340 -0.824 -0.439 

-0.310 -C.800 -0.450 

-0.279 -0.774 -0.449 

-0.249 -0.750 -0.443 

-0.218 -0.726 -0.429 

-0.167 -0.710 -0.410 

-0.156 -0.702 -0.385 

-0.125 -0.701 -0.356 

-0.094 -0.706 -0.322 

-0.062 -0.713 -0.262 

-0.031 -0.721 -0.237 

0.0 -O. 724 -0. 1 8S 

0.031 -0.723 -0.135 

0.062 -0-.719 -0.074 

0.094 -0.699 -0.014 

0.125 -0 .655 0. 044 

0.156 -0.595 0.105 

0. 187 -0.529 0. 164 

0.216 -0.457 0.220 

0.249 -0.380 0.266 

0.279 -0.300 0.3C7 

0.310 -0.2 IS 0. 335 

0.340 -0.126 0.352 

0.371 -0.045 0.361 

0.401 0.035 0.360 

0.431 0.113 0. 354 

0 . 460 0.154 0.343 

0.490 0.213 0.310 

0.532 Q.iei 0. 181 

0.647 0.097 0.097 

0.912 0.047 0.047 

1.410 0.020 0. 020 

2.276 0.006 0.006 

3.672 0.003 0.003 

6.027 0.001 O.OOl 
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X VU rL SLU SLL 

-0*«9000 0«01dS7 -0*01417 0*71872 -0.67988 

—0.46044 C.03J19 -O.Ol;692 0.36638 —0.31117 

-0.4J067 C. 04206 -0.03466 0.24494 -0.22472 

-0.40072 0.04771 -0.04029 0.1S0S6 -C. 15910 

-0.37058 C.0517S -0.04448 0.11970 -0.12047 

-0.34026 0.0S503 -0.04762 0.0962S -0.06720 

-0.30962 0.05776 -0.04964 0.06150 -0.06020 

-0.27923 0.C6004 -0.05I3S 0.06763 -0.03684 

-0.24652 Q.C6193 -0. 05224 0*05565 -0.01937 

-0.21769 C.06347 -0.0S2S6 0.04433 -0.00161 

-0.18677 0.06469 -0.05236 0.03446 0.01457 

-0.15577 C.06S6O -0.05166 0.02471 0.03026 

-0.12470 0.06622 -0*05049 0*01536 0.04542 

-0.09357 C. 06657 -0.04684 0.00668 0.06022 

-0.06240 0.06664 -0.04074 -0.00227 0.07466 

-0.03121 0.06643 -0.04419 -0.01127 0.06857 

0.0 .0.06593 -0.04122* -0.02074 0.10139 

0.03121 C.06S12 -0.03767 -0.03105 0.11360 

0.06240 0.06398 -0.03415 -0.04234 0.12447 

0.09357 0.06247 -0.03013 -0.05515 C. 13299 

0.12470 0.060S3 -0.02589 -0.06954 0.13908 

0.15577 0.05612 -0.021S2 -0.06554 0.14153 

0.16677 C. 05522 -0.01715 -0.10202 0.13927 

0.21769 C. 05181 -0.01295 -0.11623 0.13190 

0.24652 0.04793 -0.00907 -0.13341 0.11694 

0.27923 C. 04362 -0.00568 -0.14692 0.10064 

0.30962 C. 03894 -0.00293 -0*15646 0,07903 

0.34028 C. 03399 -0.00067 -0.16610 0.05556 

0.37056 C.C28S9 0.00044 -0.16965 0.03145 

0.40072 0.02376 0.00103 -0.17077 0.00710 

0.43067 0.01880 0.00089 -0.15510 -0.01560 

0.46044 C. 01457 O.OOOOJ -0.13173 -0.04429 

0.49000 0.01090 -O.OOiet -0.11632 -0.06015 

75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 *75 75 75 75 75 75 75 

74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 75 75 75 

74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 75 75 

74 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 74 74 74 74 75 76 

74 73 72 72 71 71 71 71 71 71 71 71 71 71 71 71 72 72 73 74 75 76 77 

74 73 72 71 7C 69 66 67 66 65 64 64 65 66 67 69 70 72 73 75 76 76 76 

73 73 73 72 70 68 66 64 61 b7 52 44 55 61 65 69 72 74 76 76 79 80 76 

73 74 74 73 72 71 70 66 65 62 56 0 67 70 74 76 76 60 81 61 82 81 78 

74 74 74 74 74 74 73 73 73 73 75 0 0 86 84 83 83 83 83 82 82 81 76 

74 74 75 75 75 76 76 77 78 61 0 O 0100 94 91 66 66 85 64 63 81 76 

74 74 75 76 77 78 79 80 83 66 0 0 0108101 97 93 90 66 66 84 61 78 

74 74 75 77 76 79 81 63 86 69 0 0 010910SI0I 97 93 90 87 85 82 78 

74 74 76 77 79 81 63 66 88 91 0 0 Q109I06I03 99 96 92 89 86 82 78 

74 74 76 78 80 82 84 87 90 92 0 0 0109106104101 97 94 90 87 83 78 

74 75 76 78 61 63 65 88 90 93 0 0 0108106103101 98 95 91 87 63 76 

74 75 76 79 61 83 86 88 90 92 0 0 0107105103101 98 96 92 68 S3 79 

74 75 77 79 £1 84 86 88 90 92 0 0 0106104103101 99 96 93 89 84 79 

74 75 77 79 81 83 85 87 89 91 0 0 0105104102100 99 96 93 89 84 79 

74 75 76 79 81 83 65 87 88 90 0 0 0105103102100 99 96 93 89 64 79 

74 75 76 76 60 82 84 86 87 89 0 0 0 0103102101 99 97 94 90 64 79 

74 74 76 76 aC 81 83 85 86 87 0 0 0 0104102101 99 97 94 90 84 79 

74 74 76 78 79 HI 63 83 84 86 0 0 0 0104103101 99 97 96 90 84 79 

74 74 76 77 78 79 61 82 63 84 000 0104103101 99 97 94 69 64 79 

74 74 75 76 77 76 79 60 61 62 0 0 0 0104103101 99 96 93 69 64 79 

74 74 75 76 76 77 78 78 79 80 0 0 0106104102101 96 96 93 69 64 79 

74 74 74 75 78 76 76 77 77 77 0 0 0105104102100 96 95 92 68 84 79 

74 74 74 74 74 75 75 75 75 75 75 0 0104103101 98 96 94 91 66 83 79 

74 74 74 74 74 73 73 73 73 73 73 0 0102100 99 97 94 92 90 87 63 79 

74 73 73 73 73 72 72 71 71 71 70 0 0100 96 96 94 93 91 68 66 63 76 

73 73 73 72 72 71 71 70 69 69 68 0 0 97 95 93 92 91 69 67 65 82 76 

73 73 73 72 71 70 69 69 68 67 66 0 0 93 92 91 90 69 67 06 64 62 76 

73 73 72 7| 70 69 68 67 66 65 64 0 0 90 89 86 87 87 66 65 S3 62 76 

73 73 72 71 70 69 68 66 65 64 63 0 0 67 86 66 85 85 84 83 63 81 78 

73 73 72 71 69 66 67 66 65 63 62 0 0 83 03 83 83 63 63 62 62 61 78 

73 73 72 70 69 68 67 65 64 63 61 O 0 60 80 61 61 61 61 61 61 60 76 

73 73 71 70 69 66 66 65 64 62 61 0 77 77 76 78 79 79 60 60 60 60 70 

73 73 7 1 70 69 67 66 65 64 62 6 I 0 74 75 76 76 77 78 79 79 60 60 76 

73 72 71 70 69 66 66 65 64 63 61 0 71 72 74 75 76 77 76 76 79 79 76 

73 72 71 70 69 68 67 66 65 63 62 0 69 71 72 74 75 76 77 76 79 79 76 

73 72 71 69 66 67 66 65 64 63 62 0 67 69 71 72 74 7S 76 77 79 79 76 

73 72 71 70 69 66 67 67 6/ 67 67 67 66 69 70 72 73 74 75 76 77 76 78 

73 72 71 71 7C 70 70 70 70 70 TO 71 71 71 72 72 73 73 74 75 76 77 77 

73 73 72 72 72 72 72 72 72 73 73 73 73 73 73 73 73 74 74 74 75 76 77 

74 73 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 75 75 76 

74.74 74 74 14 74 74 74 74 74 74 74 74 74 74 74 74 74 74 75 75 75 75 

74 74 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 76 

75 75 75 75 75 75 7b 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 

HAVE CO = 0.006996 
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CHART too 


-0.3900 
-O. 3700 


-0.3900 

-0.2700 


- 0.1100 

-0.0900 


0. t 100 

O. 1300 


0.1700 
0. 1900 


0.2300 

0.2500 


0.2900 

0*3100 


0.3900 

0.9100 

0.4S00 

0.4700 

0.4900 


UT B 
T B 


CPSTAR a -O.SB42 
0.4481 CO = 0.014111 CMt-E = 


CLCIR = 0.4542 

-0.2323 COF = 0*007115 CMC4 = 
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